如何解决当使用连字符
我目前正在处理一个宏,该宏在一定范围内循环遍历所有单元格,并用连字符填充所有空单元格。空单元格可以变化,这就是为什么我决定首先使用循环的原因。我首先使用if cell.value =“”进行了尝试,但是返回了错误。我在网上找到了一个实例,其中有人将这种方法与rng一起使用,然后相应地循环了(范围内的每个rng)。但是,我现在收到“对于crange中的每个rng”行的类型不匹配错误。有人可以向我解释原因以及如何解决这个问题吗?该宏似乎仍然有效,但显然我不希望每次运行时都显示错误消息的宏。
提前谢谢!我复制了下面的代码。
Dim Rng As Range
Dim wsDestination As Worksheet,wsSource As Worksheet
'set worksheets
With ThisWorkbook
Set wsSource = .Worksheets(Sheets.Count)
Set wsDestination = .Worksheets("Overview")
End With
LastRow1 = wsDestination.Cells(Rows.Count,"A").End(xlUp).Row
LastColumn1 = wsDestination.Cells(5,wsDestination.Columns.Count).End(xlToLeft).Column
Set cRange = wsDestination.Range(wsDestination.Cells(4,1),wsDestination.Cells(LastRow1,LastColumn1))
For Each Rng In cRange
If Rng.Value = "" Then
Rng.Value = "-"
End If
Rng.HorizontalAlignment = xlRight
Next Rng
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。