EXCEL VBA 删除列的命令
1个回答
展开全部
Sub aaa()
Set rn = Nothing
For Each Rng In [E1:AW1]
If Rng > 5 And Rng < 12 Then
If rn Is Nothing Then
Set rn = Rng
Else
Set rn = Union(rn, Rng)
End If
End If
Next Rng
If Not rn Is Nothing Then rn.EntireColumn.Delete
End Sub
追问
非常感谢,再问一下,如果我只要删大于5的条件,就在第四行稍微改一下就行了吧
追答
第一个if语句条件修改即可
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询