|
うまくいかないのでどうぞご教授ください。
AAAというシートのB列から、指定した回数分BBBシートのL列へコピーする
というマクロを作成しました。
この時、値のみ貼り付けたいのですが、Range(コピー先セル)の後に
.PasteSpecial Paste:=xlPasteValuesと入れてもエラーになってしまします。
何故でしょうか。
よろしくお願いいたします。
Sub 回数分コピー()
Worksheets("AAA").Activate
下端行 = Range("B6").CurrentRegion.Rows.Count
コピー元行 = 6
コピー先行 = 7
For コピー元行 = 6 To 下端行
個数 = Cells(コピー元行, 58).Value '個数を取得する
For 回数 = 1 To 個数
コピー元セル = "B" & コピー元行
コピー先セル = "L" & コピー先行
Worksheets("AAA").Range(コピー元セル).Copy _
Destination:=Worksheets("BBB").Range(コピー先セル)
コピー先行 = コピー先行 + 1
Next
Next
End Sub
|
|