Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

70994 / 76734

←次へ　｜　前へ→


	【10241】Re:デ－タ加工？

ichinose - 04/1/14(水) 7:46 -


	引用なし

	パスワード

ｙｕｋｋｏさん、keinさん、ハマゾウさん、おはようございます。

私も配列を使ってみました。
目的のデータを消去した状態（空白にする)でmainを実行してみて下さい。
>消去するセル数や、消去する回数は不特定です。
消去データは、虫食いのように飛び飛びの範囲でもＯＫです。

'=============================================================
Sub main()
　　Application.ScreenUpdating = False
　　Call データ加工(Range("a1:gr6000"))
'　　　　　　　　　　　　↑加工するセル範囲を指定します。
　　Application.ScreenUpdating = True
End Sub
'=============================================================
Sub データ加工(rng As Range)
　　Dim myarray
　　Dim crow As Long
　　Dim ccol As Long
　　Dim frow As Long
　　Dim fcol As Long
　　myarray = rng.Value
　　frow = 1
　　fcol = 1
　　For ccol = 1 To UBound(myarray, 2)
　　　 For crow = 1 To UBound(myarray, 1)
　　　　　If myarray(crow, ccol) <> "" Then
　　　　　　 myarray(frow, fcol) = myarray(crow, ccol)
　　　　　　 If frow + 1 > UBound(myarray, 1) Then
　　　　　　　　frow = 1
　　　　　　　　fcol = fcol + 1
　　　　　　 Else
　　　　　　　　frow = frow + 1
　　　　　　　　End If
　　　　　　 End If
　　　　　Next
　　　 Next
　　For idx = fcol To UBound(myarray, 2)
　　　 For jdx = frow To UBound(myarray, 1)
　　　　　myarray(jdx, idx) = ""
　　　　　Next jdx
　　　 frow = 1
　　　 Next idx
　　rng.Value = myarray
End Sub

0 hits

▼

【10231】デ－タ加工？ ｙｕｋｋｏ 04/1/13(火) 21:12