Excel VBA質問箱 IV

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

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


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

52546 / 76732

←次へ　｜　前へ→


	【29022】データの埋め込み

M - 05/9/21(水) 20:57 -


	引用なし

	パスワード

元の表があります。これは会計処理のソフトを使い、結果をエクセルに張り込んだものです。

元の表　　　　項目１　　　　項目２　　　　項目３　　　　項目４　　　　項目５
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

ここまでコードを書いたのですが、あとどのように展開したら
良いのか、アドバイスお願いします。

1 hits

▼

【29022】データの埋め込み M 05/9/21(水) 20:57

≪