按清除，指定位置内容清除

21111按时 · 发表于 2024-11-8 11:28

按清除，指定位置内容清除

loirol · 发表于 2024-11-8 12:29

。。。。。。

沈默00 · 发表于 2024-11-8 13:02

沈默00 · 发表于 2024-11-8 13:03

参与一下.....

gwjkkkkk · 发表于 2024-11-8 20:28

Option Explicit
Sub TEST1()
Dim ar, j&, r&, rngDel As Range

With [H8].CurrentRegion
      ar = .Value
      For j = 1 To UBound(ar, 2)
         If ar(1, j) = "指定位置" Then
            If rngDel Is Nothing Then
                  Set rngDel = Intersect(.Columns(j), .Columns(j).Offset(1))
            Else
                  Set rngDel = Union(rngDel, Intersect(.Columns(j), .Columns(j).Offset(1)))
            End If
         End If
      Next j
End With

If Not rngDel Is Nothing Then rngDel.ClearContents
Beep
End Sub

gwjkkkkk · 发表于 2024-11-8 20:28

请参考。。。

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

[求助] 按清除，指定位置内容清除