Question

EXCEL VBA 删除列的命令

我想把E1:AW1中,大于5的对应列数全都删除,请问这个命令该怎么写?

Answer 1

Sub test()
For i = 49 To 5 Step -1
    If Cells(1, i) > 5 Then
        Columns(i).Delete
    End If
Next
End Sub

Answer 2

Columns("E:AW").Delete Shift:=xlToLeft

追问

注意:大于5的单元格对应的列才删