|
こんにちは。かみちゃん です。
横から失礼します。
>サンプル2の方は
>With Worksheets("sheet1").Range("a2", .Cells(.Rows.Count, "a").End(xlUp)).Offset(, 3)
>で、エラーが出てうまく行きませんでした。
>このコード事態が私にはわからないので、よかったら解説していただけると
その前に、どこのコードでどのようなエラーになったのか、説明できませんか?
エラーメッセージとエラーになっている箇所くらいはわかるかと思いますが・・・
ちなみにichinoseさんご提示のコードは、以下のような感じにする必要が
あるかと思います。
今回のエラーの原因は、Withの使い方です。
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
なお、投稿時の引用はスレッド形式になっているので、必要最小限のものだけで
構いません。
|
|