| |
元の表があります。これは会計処理のソフトを使い、結果をエクセルに張り込んだものです。
元の表 項目１ 項目２ 項目３ 項目４ 項目５
101 AAA 500 300 200 500
102 BBB 400 100 50 400
104 DDD 600 0 250 600
105 EEE 150 50 0 150
107 FFF 600 0 0 600
109 HHH 180 80 50 180
この元の表には、PPPのデータとGGGのデータに動きが無く,本来張り込まれるべきものですが、その動きが無く、張り込まれていません。
このように、項目１のデータは、動きのない時は表に出てきません。
それを、エクセル上で、この項目１を全て作り、データを差し込み（数字は項目２〜４まで全て０の数字を入れ、表の集計して、結果として次の表のように仕上げたいのです。
仕上げ表 項目１ 項目２ 項目３ 項目４ 項目５h
101 AAA 500 300 200 500
102 BBB 400 100 50 400
103 PPP 0 0 0 0
104 DDD 600 0 250 600
105 EEE 150 50 0 150
107 FFF 600 0 0 600
108 GGG 0 0 0 0
109 HHH 180 80 50 180
Sub 表の補完 （）
Dim R As Range
Dim myR As Range
Set myR = Range(Cells(6, 2), Cells(35, 2))
For Each R In myR
If R.Value <> "PPP" Then
R.Value("BBB").Row.Select
Selection.Insert shift:=xlDown
End If
Next
End Sub
ここまでコードを書いたのですが、あとどのように展開したら
良いのか、アドバイスお願いします。
|
|
M
- 05/9/21(水) 20:57 -
