|
▼Jaka さん:
>▼りん さん:
ご回答どうもありがとうございます。
>> Sub 1.()
> ^
> ↑この部分はおいておいて。
subのところに、数字はだめですよね。ありがとうございます。
>
>> '一番上のセルに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ステップ実行をして、
> 動作をチェックしてみてください。
> セレクトされているから、今どこのセルが対象か解ると思います。
教えて頂いたとおり1行ずつチェックしてみたところ、とあるセルのところでデバックとなり、
「Run-time error'13'」のエラーが出てきました。
素人で申し訳ないのですが、デバックとなったセルの何を調べると、このエラーを解除できる
のでしょうか?
調べたところ、変数のデータの型とやらがよくないのかと思ったのですが、それをどう変えれ
ばよいのかがどうも分かりません。。。
>
>> ActiveCell.PasteSpecial Paste:=xlFormulas
>>
>> i = i + 1
>> Loop
>>End Sub
>>
>>・エクセルのレイアウト都合上、6行目以下にVLOOKの式を入力したい
>>・右の最終列と、行の途中いくつかと最後にSUMが入力されているので、SUMの入っていない空白セルにのみVLOOKを入力したい
|
|