|
VBA初心者です。
一番上のセルに入力したVLOOKをコピーして、Do until...Loopを使って、ENDと入力してあるセルまで数式の貼付をしたいのですが、途中でとまってしまい、
「Run-time error'13'」
というエラー表示が出ます。
ENDと入力してあるセルまで、貼付を繰り返すにはどこを修正すればよいのでしょうか?
全く検討違いのVBAを組んでしまっているかもしれませんが・・・
ご教授頂きたくよろしくお願いいたします。
Sub 1.()
'一番上のセルにVLOOK挿入
Worksheets("sheet1").Activate
Cells(6, 5).End(xlToRight).Offset(0, 1).Formula = _
"=VLOOKUP(C" & 6 & ",'[PL-GS.xls]作業表'!$J$" & 6 & ":$W$" &
109 & "," & 5 & "," & 0 & ")"
'VLOOKをコピーして下に貼付け
Cells(7, 5).End(xlToRight).Offset(-1, 1).Select
Selection.Copy
'VLOOKをコピーして下に貼付けをENDまで繰返し
Dim i As String
i = 5
Do Until Cells(i, 11) = "END"
Cells(5, 11).End(xlDown).Offset(1, 0).Select
ActiveCell.PasteSpecial Paste:=xlFormulas
i = i + 1
Loop
End Sub
・エクセルのレイアウト都合上、6行目以下にVLOOKの式を入力したい
・右の最終列と、行の途中いくつかと最後にSUMが入力されているので、SUMの入っていない空白セルにのみVLOOKを入力したい
|
|