excel - 尝试浏览列时的调试问题

Question

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 列中的所有数据并一直向下直到它到达第一个空白单元格。问题是它一直告诉我调试并指向上面代码中的第三行代码。我以为我这样做是正确的，但看起来我不是。

如何修复这行代码，以便它查看 B 列中的所有数据，直到它到达该列中的第一个空白行？

Answer 1

从外观上看，您应该：

Dim Brand As Range

或者

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

这会让你编译。

Answer 2

我认为你有几个问题：

1. 您已将 Brand 定义为字符串，但稍后将其分配给一个范围。您可能应该重新定义为Dim Brand As **Range**
2. 当您将 Brand 分配给范围时，您需要使用set键，例如**set** Brand = Range...
3. 该Range定义似乎缺少一个Range关键字： Range( Range ("B25"), Range("B25").End(xlDown))

因此，它可能看起来像这样：

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