マクロについて質問です。

質問

office2003を使用しています。
sheet1のデータをコピーし、sheet2の表にsheet1のデータを張り付けるマクロを作成して欲しいと言われました。

・コピー元のsheet1はセルの結合が有ったり無かったりの表データになってます。
・貼り付け先のsheet2はセルの結合が無い表です。
・sheet1からsheet2への貼りつけは全てではなく、抜粋されたデータになります。
・貼り付け先の列も変わっています。
・sheet2には数式が入った列が加わり、小数点第二位表示です。セルの書式は右寄せや中央、桁区切りがあります。
・sheet1は可変データです。
2～3位で終わるのもデータの時もあれば20まであったりする時もあります。
sheet2の表の罫線はデータの分だけ引きたいと思っています。

マクロは初心者同然で自動マクロ程度のレベルです。
わかりにくい説明で申し訳ありませんがご教授ねがいます。

sheet1

　　A　　B　　　　　　C　　　　　　　　D　　　　E　　　　F　　　　　　G　
１　No.　名前　　　　上）住所　　年齢　　商品　　金額　　　担当者
　　　　　　　　　　　　下）電話

２　　　　　　　　　　　秋田
　　 1 　アイウエオ　　　　　　　　20　　　 A　　　10,000　　　タナカ
３　　　　　　　　　　　123456

４　　　　　　　　　　　鹿児島　　　35　　　　D　　　15,000　　　ヨシダ
　　2　　カキクケコ　　
５　　　　　　　　　　　987654

※sheet1はC列以外の2・3、4・5行はセルが結合されています。 　　　2行で1人のデータになります。

↓コピー貼りつけをする

sheet2
　　　A　　B　　　　　　C　　　　　D　　　　E　　　　　F　　　　　　G　

１　No.　担当者　　名前　　　　住所　　商品　　金額　　　原価

２　 1 　タナカ　　アイウエオ　　秋田　　A　　10,000　　　7,500.00（数式が入っている）　

３　2　　ヨシダ　　 カキクケコ 　鹿児島　D　　15,000　　　6,800.00

回答No.1

imogasi · ベストアンサー

これも他人に丸投げで依頼している。ここはコード作成委託コーナーではなかろう。
ーー
初心者で在れば、シートにセル結合があれば、別シートにSheet1をコピー貼り付けし、手動でセル結合を　解いて
それから考えることをお奨めする。（見出し行でのセル結合は関係ないと思うが）。
セル結合があるとするとVBAでは面倒になるのだ。私なら表設計段階から考えておく。
ーーー
　データ情況が読者側でシートに再現できない。
例示されたデータがわかりにくい。質問文で個別に説明が必要だろう。
VBAコードはセル位置や情況が正確にわからないとコードは作成できない。
回答のコードを読み解く質問者が初心者であれば、そっくりコピペのコードを期待していて、自分の場合に合わせて修正も出来るかどうか、わからないだろう。だったらなおさらだ。
A B C D E F G
No. 名前 上）住所 年齢 商品 金額 担当者
ーー ーー 下）電話
1 アイウエオ 秋田 20 A 10,000 タナカ
ーー ーー 123456
とでも書けばわかるかも。ーーは空白セルだが左寄せ表示防止のため要れッた。
秋田　123456の部分がよくわからない、セル結合か、セル内改行か。
何処のセルにセル結合があるのか。見出し行でのセル結合は関係なかろう。
Sheet2の方は、普通のリスト形式（テーブル形式のようだが）
上）下）は同一セル内の上下という意味か。セル結合してあるのか。
抜粋条件は質問に書いているか。
原価は何処から持ってくるのか。
＞小数点第二位表示です。セルの書式は右寄せや中央、桁区切りがあります。
コンなのは初心者であれば、手動で表示形式を設定するので「我慢するのだ。
＞sheet1は可変データです。
何の意味。こういう作業が今後もあって、その場合Sheet1の行数が増減するという意味なら、欠かなくても良いことだ。
ーーー
Sheet1の１単位からSheet2の１行にデータを持って来れば良いようだ。
基本パターンは（ひとつのやり方だが）
Sub test01()
d = Worksheets("Sheet1").Range("A65536").End(exup).Row 'sheet1 の最下行
k = 2 'Sheet2の書き出しは代２行目からと仮定
For i = 2 To d Step X 'Sheet1では何行おきかで、処理するのかな？
'(Sheet2の1行分の処理。各列＝項目の代入）
With Worksheets("Sheet2")
.Cells(k, "A") = XXXX
.Cells(k, "B") = YYYY
.Cells(k, "C") = ZZZZ
'・・・・・
k = k + 1
End With
Next i
End Sub
のようなパターンで出来そうではないかな。
これを見て頭を整理してみて。
ーー
次の点は質問から不明で説明できない。
（１）この場合はXに当たる数はいくらか＝Sheet1では１人分は何行使って居るか
Sheet2では１人分は１行だよね。
（２）XXXX,YYYY・・はSheet1のセルの値から代入することになるだろうが、単純に
=Worksheets(”Sheet1").cells(i,○）（○は列指定）と書けるのはどの項目か、考えて作ってみると良い。
（３）（２）以外で右辺の書き方で難しいと思った列があれば、その点に絞って質問のこと。
セル結合していても一番上や一番左のセルに値があると思えば仕舞いなんだが。

お礼

返事が遅くなり申し訳ないです。おっしゃる通りなんです。なんでも異動された前任者がよく出来た方らしく、上司が若い人はみな出来るもんだと断っても何とか頼むの一点張りで…ご迷惑おかけしました。でも今回の事で勉強しようと思います。説明不足だらけでお答えいただき感謝しています。

回答No.2

mu2011

>マクロは初心者同然で自動マクロ程度のレベルです。
>わかりにくい説明で申し訳ありませんがご教授ねがいます。
　⇒ご質問者のレベルではできないと判っていながら依頼を受ける事が問題です。
　　リードタイムに余裕があればＶＢＡを学習してからです、ビジネスならばできない事はできないということも責任と思います。
　　因みにこの程度ならばワークシート関数でもできる（但し、罫線の自動設定はできない）のだから
　　関数での実現を考えては如何でしょうか。
　　例えば、Ａ列からの抽出ならば、=IF(INDEX(Sheet1!A:A,(ROW()-1)*2,)<>"",INDEX(Sheet1!A:A,(ROW()-1)*2,),"")で可能ですので後は数式の列名を変更して下さい。

お礼

返事が遅くなり申し訳ないです。おっしゃる通りなんです。なんでも異動された前任者がよく出来た方らしく、上司が若い人はみな出来るもんだと断っても何とか頼むの一点張りで…ご迷惑おかけしました。説明不足だらけでお答えいただき感謝しています。