如何计算宏中的非空单元格答案

【问题标题】：how to count non empty cells in macro如何计算宏中的非空单元格
【发布时间】：2013-03-24 03:05:35
【问题描述】：

您好，我想出了一个打开多个工作簿的代码。代码是

Sub OPEN_hari()
Dim r As Long
For r = 1 To 10
    Workbooks.Open Filename:=Sheet2.Cells(r, 1).Value
Next r
End Sub

但这里的问题是，如果只有 3 个单元格 ((1,1) (2,1) (3,1)) 具有工作簿文件的路径，则会抛出无法打开“”文件的错误消息。我怎样才能使这个宏只打开没有错误消息提到的文件。由于我是初学者，因此非常感谢您提供任何帮助

【问题讨论】：

您是否尝试过使用If..Then 来检查单元格中是否存在值？
没有蒂姆：（你能帮我解决这个问题吗？？
谢谢蒂姆我试过 if...then 它工作正常代码是 If Cells(r, 1).Value "" Then

标签： vba excel cell

【解决方案1】：

有两种方法可以满足您的需求：

运行一个无限循环，检查单元格是否为空：

Dim i as Long: i = 0 

While Not IsEmpty(Sheet1.Cells(i + 1, 1)) 'assuming the value is in Column A
    'your code
    i = i + 1 
Wend

获取已使用的行数，但存在可能已使用单元格但现在没有数据的风险，因此我将检查：

Dim ur as Long: ur = Sheet1.UsedRange.Rows.Count
Dim i as Long

For i = 0 to (ur - 1)
     If LenB(Sheet1.Cells(i + 1, 1).Value) > 0 then
        'your code
     End If 
Next i

【讨论】：