使用来自不同工作表的数据设置变量

Question

我在代码的最后一行遇到问题。我相信问题在于我如何设置我的范围，但我不知道如何设置它。我试图通过确保用户表单中的所有字段在宏中继续之前被填充进来进行错误检查。

Dim emptyRowNumber As Long 
emptyRowNumber = Application.WorksheetFunction.CountA(Sheets("Leads").Range("a:a")) + 1 
. 
. 
. 
Dim filledCount As Integer 
filledCount = Application.WorksheetFunction.CountA(Sheets("Leads").Range(Cells(emptyRowNumber, 1), Cells(emptyRowNumber, 11))) 

Answer 1

您需要将范围语句内的所有单元格和范围限定为同一工作表。

在此代码示例中，Cells(emptyRowNumber, 1)和Cells(emptyRowNumber, 11)指的是ActiveSheet上的单元格，而不是Sheets("Leads")的单元格。

表（ “信息”）。范围（将细胞（emptyRowNumber，1），将细胞（emptyRowNumber，11））

个人喜好I组在我的程序顶部的所有变量按字母顺序的数据类型（数字，字符串，对象等）。我还建议使用With语句来缩短您的代码。

Dim emptyRowNumber As Long, filledCount As Integer 

With Sheets("Leads") 
    emptyRowNumber = Application.WorksheetFunction.CountA(.Range("a:a")) + 1 
    filledCount = Application.WorksheetFunction.CountA(.Range(.Cells(emptyRowNumber, 1), .Cells(emptyRowNumber, 11))) 
End With