vba - CountA 返回 0，WorksheetFunction.CountA 返回 1

Question

在调试窗口中，以下表达式均返回 1。

Application.WorksheetFunction.CountA(Cells(4 + (i - 1) * rows_per_record, 28) & ":" & Cells(5 + (i - 1) * rows_per_record, 58))

Application.WorksheetFunction.CountA(ThisWorkbook.Sheets(n).Cells(4 + (i - 1) *  rows_per_record, 28) & ":" & ThisWorkbook.Sheets(n).Cells(5 + (i - 1) * rows_per_record, 58))

在本例中，范围为 AB60:BF61，这在调试窗口中得到确认。

在工作表中，当脚本暂停时，我在单元格中输入 =CountA(AB60:BF61)，结果为 0，这就是它应该的结果。

任何解释将不胜感激。

Windows 7、Excel 2010

Answer 1

你的语法错误。

正确语法:

Application.WorksheetFunction.CountA (范围(单元格(4 + (i - 1) * rows_per_record, 28), 单元格(5 + (i - 1) * rows_per_record, 58)))


您的代码正在计算每个非空字符串的参数。唯一的参数是由两个空单元格值包围的冒号。

Application.WorksheetFunction.CountA(ThisWorkbook.Sheets(n).Cells(4 + (i - 1) * rows_per_record, 28) & ":"& ThisWorkbook.Sheets(n).Cells(5 + ( i - 1) * rows_per_record, 58))