Question

您好我已经提出了打开多个工作簿的代码。代码是

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））具有工作簿文件的路径，则会抛出错误消息，即coulndt打开“”文件。如何使此宏只打开没有错误消息提到的文件。由于我是初学者，所以任何帮助都非常感谢

Answer 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

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

1 个答案: