需要一些建议，当我尝试运行此宏时遇到此错误，但出现不匹配错误。
“ InsertNAtoBlanks”是不言自明的，我只需要此IF语句即可读取该表中的特定列，如果任何单元格中都有空格，请运行“ InsertNAtoBlanks”宏，如果没有，请继续执行下一步宏。
Dim x As ListObject
Dim z As Range
Dim Bcell As Range
Set x = ActiveSheet.ListObjects("Table6")
Set z = x.DataBodyRange.Columns(11)
For Each Bcell In z
If Bcell.Value <> Empty Then
Run "InsertNAtoBlanks"
Else
'Contiue on with macro
如果有空白
改变
If Bcell.Value <> Empty Then
到
If Bcell.Value <> "" Then
或者
If Len(Trim(Bcell.Value)) <> 0 Then
所述Empty关键字被用作Variant子类型。它指示未初始化的变量值。
您的代码可以写成
Sub Sample()
Dim x As ListObject
Dim z As Range
Dim Bcell As Range
Set x = ActiveSheet.ListObjects("Table6")
Set z = x.DataBodyRange.Columns(11)
For Each Bcell In z.Cells
If Bcell.Value <> "" Then
Run "InsertNAtoBlanks"
End If
Next
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句