|
▼りん さん:
横からすみません
> 「Run-time error'13'」のエラーが出てきました。
ランタイムエラーといっても、いろいろあると思います。
その下に エラーの内容が出ていませんですか?
たとえば 「型が一致しません」とか?
あと、
本題からは外れますが、
> Cells(6, 5).End(xlToRight).Offset(0, 1).Formula = _
> "=VLOOKUP(C" & 6 & ",'[PL-GS.xls]作業表'!$J$" & 6 & ":$W$" &
> 109 & "," & 5 & "," & 0 & ")"
は、単に
Cells(6, 5).End(xlToRight).Offset(0, 1).Formula = _
"=VLOOKUP(C6,'[PL-GS.xls]作業表'!$J$6:$W$109,5,0)"
ということではないですか?
6 とか 109 とかは 定数なので。
> Cells(7, 5).End(xlToRight).Offset(-1, 1).Select
> Selection.Copy
も
Cells(7, 5).End(xlToRight).Offset(-1, 1).Copy
と一行で書けますよね?
その下も同様ですが、なるべく 「Selectしない」コードを書くように
しましょう。
|
|