0 
Dim Brand As String, Status As String, CaseNumber As String, CaseSummary As String
    Worksheets("1st").Select
    Brand = Range("B25", Range("B25").End(xlDown))

コマンドボタンをクリックすると、行25から始まる列Bからすべてのデータが挿入され、最初の空白セルに到達するまで下に移動するマクロを実行しようとしています。問題は、デバッグするように指示し続け、上記のコードの 3 行目を指していることです。私はこれを正しくやっていると思っていましたが、そうではないようです。

このコード行を修正して、列 B からその列の最初の空白行に到達するまですべてのデータを調べるにはどうすればよいでしょうか?

4

2 に答える 2

1

それを見ると、次のいずれかが必要です。

Dim Brand As Range

また

Dim Brand As Variant
Brand = Range("B25", Range("B25").End(xlDown)).Value

これでコンパイルできるようになります。

于 2013-11-06T03:07:30.457 に答える