请大家帮我翻译下这段代码的意思！

答案:2 悬赏:60 手机版

解决时间 2021-01-29 11:28

提问者网友：战皆罪
2021-01-29 07:11

我是VBA初学者，有高手帮我写了这段代码，但我不知道是什么意思，谁能帮我翻译下？谢谢！
Sub Macro1()
Application.ScreenUpdating = False
On Error Resume Next
Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range
Set rng2 = Range("I4:I81")
Set rng3 = Range("B2:G40")
For Each rng1 In rng3
If Application.CountIf(rng2, rng1) > 0 Then
rng1.ClearContents
End If
Next
rng3.SpecialCells(xlCellTypeBlanks).Delete
End Sub

最佳答案

五星知识达人网友：夜余生
2021-01-29 07:37

删除B2到G40内的、与I4至I81中的值有重复的单元格。

全部回答

1楼网友：春色三分
2021-01-29 08:18

你这段话语法错误实在太严重了几乎不通我就把大致意思跟你翻译一下我非常任性,很自私,知道你一直都在耐心的忍受着我,这我都知道,你一直爱我那么深,我相信我们能够走到最后的.这个观点在别人看来或许是个简单的想法,而且不合实际.我明白,或许是的,但我仍然就像你爱我那样爱着你,就像你总是为了适应我而在不停的改变一样,拥有你,我是真的很开心,开心!

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息