仕事のためにしている努力

[91. 匿名]

これだけじゃ役に立たないけど雑誌に掲載されてたVBA。
動作はすれど、ちょっと応用が必要。
参考迄。
ダラダラやってます。

Sub Makelabel()
Dim i As Integer
Worksheets("label").Cells.ClearContents
For i = 3 To 27 Step 3
Range(Cells(i, "B"), Cells(i + 2, "D")).Copy
Worksheets("label").Cells(i - 1, "B"). _
PasteSpecial Paste:=xlPasteValues, Transpose:=True
Next
Worksheets("label").PrintPreview
End Sub