|
似たような質問なのですが、何度やっても実行エラーになります。
sub test()
Dim rName As Range, cName As Range
Set rName = Worksheets(1).[A11]'実際はA11:A14(結合セル) [A11:A14]?
Set cName = Worksheets(2).[B2]'実際はB2:Q2(結合セル) [B2:Q2]?
Do
CopyName rName, cName
Set rName = rName.Offset(8)
Set cName = cName.Offset(16)
Loop Until rName.Row > 1207
End Sub
Private Sub CopyName(ByVal rName As Range, ByVal cName As Range)
With rName
.Range("A1:A4").Copy
cName.Range("A1:H1").PasteSpecial xlValues, Transpose:=True
.Range("A5:A8").Copy
cName.Range("I1:P1").PasteSpecial xlValues, Transpose:=True
End With
End Sub
ちなみに今回、コピペしたい値は数字ではなく、AA8B-805-117のような
英数字及び、ハイフンも含みます。何か関係するでしょうか。
sheets(1)のA1:A4の結合セルにAA8B-805-117が入ってます。
これを、sheets(2)のA1:H1の結合セルにPasteSpecialしたいのです。
ご協力ください。
|
|