|
▼りん さん:
> 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 '←
ここにブレークポイントを置いて、F8ステップ実行をして、
動作をチェックしてみてください。
セレクトされているから、今どこのセルが対象か解ると思います。
> ActiveCell.PasteSpecial Paste:=xlFormulas
>
> i = i + 1
> Loop
>End Sub
>
>・エクセルのレイアウト都合上、6行目以下にVLOOKの式を入力したい
>・右の最終列と、行の途中いくつかと最後にSUMが入力されているので、SUMの入っていない空白セルにのみVLOOKを入力したい
|
|