|
こんにちは。
いつも大変参考にさせていただいています。
先日は逆方向データ削除の方法を教えて頂き
本当にありがたかったです。
その先のデータ集計で、良い方法が見つからず
皆さまのお知恵を拝借できればと思っております。
3000行くらいのデータ量で、A・B・Cのデータのかたまり(?)
が各5列づつ並んでいます。
下の例では各2列としてあります。
各データには数100行おきに同じフラグが入っています。
フラグから次のフラグまでのデータ行数がA〜Cまで
不一致ですので、それを一致させたいと思っております。
(一番少ない行数のデータに合わせ、多いデータは削除する。)
--------------------------------------------------------
A列 B列 C D E F G
1 りんご バナナ みかん
2 DATA フラグ1 DATA フラグ1 DATA フラグ1
3 DATA DATA DATA
4 DATA DATA DATA
.
.
.
.
100 DATA フラグ2 DATA DATA
.
.
.
.
120 DATA DATA フラグ2 DATA
.
.
135 DATA DATA DATA フラグ2
.
.
200 DATA フラグ3
数十行後にバナナ、みかんのフラグ3はあります。
---------------------------------------------------------
今の段階では、別シートにMATCH関数とROWS関数を使って
フラグ間の行数を割り出し、その後INPUTBOXを使って
手作業で行と削除セルを入れておりますが、できれば
完全自動化を目標にしています。
----------------------------------------------------------
現在の削除マクロ(りんごのみ)↓
Sheets(1).Select
Dim i, j, k, l, m As Long
k = InputBox("何行目から?")
l = InputBox("何行目まで?")
m = InputBox("何行おき?")
For i = l To k Step -m
For j = 1 To 5
Cells(i, j).Select
Selection.Delete shift:=xlUp
Next j
Next i
-----------------------------------------------------
ヒントをいただけたら大変助かります。
よろしくお願い致します。
|
|