Excel VBA質問箱 IV

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

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


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

4633 / 76807

←次へ　｜　前へ→


	【77794】セルの結合→貼付け

ぼぶ - 15/12/23(水) 3:59 -


	引用なし

	パスワード

初めて質問させていただきます。

Shee1に下記のような商品の管理表があります。
（実際のデータ行は100件以上あります）

　A　　　　　B　　　　　　　　　C
1選択　　　　商品コード　　　　商品名
2■　　　　AA1111　　　　　　　　リンゴ
3■　　　　AA2222　　　　　　　　バナナ
4□　　　　AA3333　　　　　　　　みかん
5■　　　　AA4444　　　　　　　　桃
6□　　　　AA5555　　　　　　　　メロン
7■　　　　AA6666　　　　　　　　イチゴ

A列が■になっている行の商品コードと商品名を合体（例：AA1111リンゴ）させて、
それをSheet2に貼り付けていくマクロを作りたいと思っています。

Sheet2はセルをA1:D8（1.）、E1:H8（2.）、A9：D16（3.）、E9：H16（4.）という風にそれぞれ結合したうえで、
1.2.3.4.の順番（Zを描くような動き）で貼り付けていきたいです。
（上記の例ですと、1.にAA1111リンゴ、2.にAA2222バナナ、3.にAA4444桃、4.にAA6666イチゴとなります）

また、初期状態ではA1:D8などのセルの結合はされていない真っ白な状態なので、
セルの結合⇒貼付け、セルの結合⇒貼付け…という動作が必要になります。

■になっている行の商品コードと商品名を合体させて取得するところまでは、
いろいろ参考にしながら下記のように書いたのですが、
それをSheet2に、セルを結合しながら、Zを描くような動きで貼り付ける動作が全く分からずとても困っています。
是非お力をお貸しください。よろしくお願いいたします。

-------------------------------------------------------
Sub harituke()
　　Dim i As Range
　　Dim lastrow As Long
　　
　　lastrow = Cells(Rows.Count, 1).End(xlUp).Row
　　For Each i In Range("A2:A" & lastrow)
　　　　code = i.Offset(0, 1).Value
　　　　item = i.Offset(0, 2).Value
　　　　　If i = "■" Then
　　　　　　ここにセル結合＆貼付けの動作？？？
　　End If
　　Next i
　　
End Sub

1 hits

▼

【77794】セルの結合→貼付け ぼぶ 15/12/23(水) 3:59