| |
VBAで質問があります。
以下のようにデータがあり，「あ」「い」「う」が項目になります。
やりたいことは，項目の付いている上部のデータだけ残して下部のデータを削除を考えています。
上部でデータの項目は変化しないのですが，データの量が変化するため削除を始めたい行が一定にはなりません。
Ａ Ｂ Ｃ
１ あ い う
２ 12 26 26
３ 18 16 20
４ 26 20 10
５ 10 22 11
６
７
８ 25 30 13 20 61・・・
９ 11 14 23 20・・・
10
11 20 22 17 23 21・・・
一応，固定行なら以下のようにマクロを組むことができたのですが，行が変化するので，その対応ができませんでした。
以下のマクロは「F列」が空いていたので，適当な数値を入れて削除しようと考えたものです。
どなたか分かる方がいらっしゃいましたらご教授ください。
また，もしもっといい方法があるようであれば知恵をお貸しください。
Dim total As Double
Dim i As Long
Dim z As Long
Range("A8").Select
i = 8
z = Range("A" & Rows.Count).End(xlUp).Row
For i = 8 To z
total = total + Range("F" & i).Value
Range("E" & i).Offset(0, 1).Value = total
Next
Range("F8").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete Shift:=xlUp
初心者なのでできれば詳しく教えていただければ助かります。
よろしくお願いします。
|
|
はる
- 12/6/4(月) 15:40 -
