|
>>>※セルを参照して、値があれば、そのセルの一つ下のセルに0を代入する方法。
>>
>>Offsetプロパティをヘルプで調べてみてください。
>>こんな感じでできます。
>>
>>Sub Macro1()
>> With Range("A1")
>> If .Value <> "" Then
>> .Offset(1) = "0"
>> End If
>> End With
>>End Sub
参考にして
Sub Macro1()
With Range("A1,A11,A21,・・・・,A291")
If .Value <> "" Then
.Offset(1) = "0"
End If
End With
End Sub
の様に作成したら、出来た!・・・と、思ったのですが
よく試すと、"A1"セルに対しては、""の時は、"A2"セルに""のままで
"文字"の時は、"A2"セルに"0"を代入するのですが、
それ以降のセル("A11","A21"・・・・,"A291")に対しては、
""であっても"文字"であっても、("A12","A22"・・・・"A292")に
"0"を代入してしまいます。
何故なのか、わかりません・・・。
どうしてでしょうか?
かみちゃんさん
わからないでしょうか?
初歩的なことなのかもしれませんが、初心者なもので
どうか、よろしくお願いいたします
|
|