|
初めて質問させていただきます。
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
|
|