如何利用VBA一次性删除指定单元格内容

zhongyong · 发表于 2018-6-20 15:07

请教高手：如何利用VBA一次性删除指定单元格（B4 D4 F4 B9 F9 ）

（这样的单元格很多，这里仅仅是列举、黄颜色为了标记），为了便于录入

一次性刷新删除指定单元内容，不改变格式。谢谢！

详见附件

lsc900707 · 发表于 2018-6-20 15:14

本帖最后由 lsc900707 于 2018-6-20 15:17 编辑

括号里的引号里随便填写单元格，用逗号隔开：

Sub gj23w98()
Range("b4, d4, f4, b9, f9") = ""
End Sub

复制代码

excelhomezql · 发表于 2018-6-21 11:34

Sub x()
Dim rng As Range

For Each rng In Range("A4:G9")

If rng.Interior.ColorIndex = 6 Then
rng.MergeArea.ClearContents
End If
Next

End Sub

区域自己扩充变化

excelhomezql · 发表于 2018-6-21 11:35

Sub x()
Dim rng As Range

For Each rng In Range("A4:G9")

If rng.Interior.ColorIndex = 6 Then
rng.MergeArea.ClearContents
End If
Next

End Sub

excelhomezql · 发表于 2018-6-21 11:37

Sub x()
Dim rng As Range
For Each rng In Range("A4:G9")
If rng.Interior.ColorIndex = 6 Then
rng.MergeArea.ClearContents
End If
Next
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 如何利用VBA一次性删除指定单元格内容