Excel VBA質問箱 IV

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

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


4560 / 76734 ←次へ | 前へ→

【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 質問[未読]
【77795】Re:セルの結合→貼付け γ 15/12/23(水) 6:19 発言[未読]
【77796】Re:セルの結合→貼付け ぼぶ 15/12/23(水) 12:40 お礼[未読]

4560 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free