Sub 转换假空值单元格为真空单元格()
Dim rCell, 最大行 As Range
Application.ScreenUpdating = False
On Error Resume Next
Set 最大行 = Sheet1.Range("A65535").End(xlUp) '计算最大行
For Each rCell In Sheet1.Range("A1:R" & 最大行.Row)
If rCell.Text = "" Then rCell.ClearContents
Next
Application.ScreenUpdating = True
On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息
End Sub
请登录后查看评论内容