| |
こんにちは。
いつも大変参考にさせていただいています。
先日は逆方向データ削除の方法を教えて頂き
本当にありがたかったです。
その先のデータ集計で、良い方法が見つからず
皆さまのお知恵を拝借できればと思っております。
3000行くらいのデータ量で、A・B・Cのデータのかたまり（？）
が各5列づつ並んでいます。
下の例では各2列としてあります。
各データには数100行おきに同じフラグが入っています。
フラグから次のフラグまでのデータ行数がA〜Cまで
不一致ですので、それを一致させたいと思っております。
（一番少ない行数のデータに合わせ、多いデータは削除する。）
--------------------------------------------------------
A列 Ｂ列 Ｃ Ｄ Ｅ Ｆ Ｇ
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
-----------------------------------------------------
ヒントをいただけたら大変助かります。
よろしくお願い致します。
|
|
haramama
- 05/9/29(木) 13:17 -
