Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 尝试查看列时出现调试问题_Excel_Vba_Excel 2011 - Fatal编程技术网

Excel 尝试查看列时出现调试问题

Excel 尝试查看列时出现调试问题,excel,vba,excel-2011,Excel,Vba,Excel 2011,我试图运行一个宏,当我单击命令按钮时,它将从第25行开始插入B列中的所有数据,并一直向下,直到它到达第一个空白单元格。问题是它一直告诉我要调试,并指向上面代码中的第三行代码。我认为我这样做是正确的,但看起来我不是 这一行代码如何固定,以便它可以查看从B列到该列第一个空行的所有数据?从外观上看,您应该: Dim Brand As String, Status As String, CaseNumber As String, CaseSummary As String Worksheets(

我试图运行一个宏,当我单击命令按钮时,它将从第25行开始插入B列中的所有数据,并一直向下,直到它到达第一个空白单元格。问题是它一直告诉我要调试,并指向上面代码中的第三行代码。我认为我这样做是正确的,但看起来我不是


这一行代码如何固定,以便它可以查看从B列到该列第一个空行的所有数据?

从外观上看,您应该:

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


这将帮助您进行编译。

我认为您有几个问题:

  • 您已经将Brand定义为一个字符串,但后来将其指定给一个范围。您可能应该将暗淡品牌重新定义为**范围**
  • 将品牌分配给某个范围时,需要使用
    设置
    键,如
    **set**Brand=range…
  • Range
    定义似乎缺少
    Range
    关键字:Range(Range(“B25”)、Range(“B25”)。End(xlDown))
  • 所以,总的来说,它可能是这样的:

    Dim Brand As Variant
    Brand = Range("B25", Range("B25").End(xlDown)).Value
    
    Dim Brand As Variant
    Brand = Range("B25", Range("B25").End(xlDown)).Value
    
    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))