请帮助我正确格式化此VBA：
Sub ClearColumns()
Dim lR As Long, Wrds As Variant, vA As Variant, R As Range, i As Long, j As Long
Dim R1 As Range, R2 As Range
lR = Range("A" & Rows.Count).End(xlUp).Row
Wrds = Array("SKU")
Set R = Range("A1:A" & lR)
Set R1 = R.Offset(0, 2).Resize(1, 4)
Set R2 = R.Offset(0, 9).Resize(1, 4)
vA = R.Value
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
For i = LBound(vA, 1) To UBound(vA, 1)
For j = LBound(Wrds) To UBound(Wrds)
If vA(i, 1) = Wrds(j) Then
R1.Rows(i).ClearContents
R2.Rows(i).ClearContents
Exit For
End If
Next j
Next i
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub
这就是我想要做的：
如果A2列中的单元格包含“ SKU”，则清除D2，G2，H2，I2，J2，K2，L2，M2，P2，R2，AB2的内容
谢谢。
这是一个使用Autofilteruse方法（通常比循环快得多）以及Range.SpecialCells属性（以及Range.Offset和）一起使用的方法Range.Resize：
Sub DeleteSkuRows()
Dim ws As Excel.Worksheet
Dim rngToClear As Excel.Range
Set ws = ActiveSheet 'change to suit
ws.Range("A1").AutoFilter field:=1, Criteria1:="SKU"
Set rngToClear = ws.AutoFilter.Range.Rows(1).Offset(1)
Set rngToClear = rngToClear.Resize(ws.AutoFilter.Range.Rows.Count - 1, ws.AutoFilter.Range.Columns.Count)
Set rngToClear = Intersect(rngToClear, ws.Range("D:D,G:M,P:P,R:R,AB:AB")).SpecialCells(xlCellTypeVisible)
rngToClear.ClearContents
ws.AutoFilterMode = False
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句