While .... Wendループを実行するたびに、私はこの一般的な考え方に基づいたスクリプトを使用します。VBAを開いた方が良いwhileループはここにありますか?
Sub Macro1
Dim Rng as Range
Dim i as Long
i = 2
While i <= 10000
Set Rng = ("A" & i)
If Rng = Rng.Offset(0,1) Then
i = i + 1
ElseIf.....
EndIf
Wend
End Sub
私の質問に関係のないスクリプトの部分については詳しく説明しませんでした。とにかく、私が求めているのは、「While i < = 10000」という行です。もちろん、これは長さが10,000行より小さい列をベースにしたタスクの大部分でうまくいきます。しかし、私はこれがよく書かれていないことを理解しています。列Aに10行または100000行が含まれているかどうかにかかわらず、すべてのワークシートに適用できるスクリプトを作成するには、この開口部を調整して反映させるにはどうすればよいですか。次のようなもの:
Dim X as long
Set X to the number of rows in column A
While i <= X
この作品は次のようなものですか? ありがとうございます。
Cool。それをシートではなく、単一の列の最後の行に制限することは可能でしょうか? 4161はどこから来たのですか? – user1996971