|
▼かみちゃん さん:
回答ありがとうございます。
エラーは
「.Range("a2", .Cells」の「.Cells」の部分で発生しました。
エラー内容は「コンパイルエラー 参照が不明または不完全です。」でした。
あと、みかちゃんさんのサンプルコードありがとうございます。
実行してみました。エラーはでなかったのですが、値が2に変更されませんでした。
よろしくお願いいたします。
>Sub testtest_2()
>' With Worksheets("sheet1").Range("a2", .Cells(.Rows.Count, "a").End(xlUp)).Offset(, 3)
> With Worksheets("Sheet1")
> With .Range("A2", .Cells(.Rows.Count, "A").End(xlUp)).Offset(, 3)
> If .Row > 1 Then
> .Value = 2
> End If
> End With
> End With
>End Sub
>
>なお、投稿時の引用はスレッド形式になっているので、必要最小限のものだけで
>構いません。
|
|