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

我认为你有几个问题：

您已将Brand定义为字符串，但稍后将其指定给范围。您应该重新定义为Dim Brand As **Range**
将品牌指定给某个范围时，您需要使用set关键字，例如**set** Brand = Range...
Range定义似乎缺少Range关键字：范围（范围（“B25”），范围（“B25”）。结束（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))

尝试查看列时调试问题

2 个答案: