EXCEL VBA 删除列的命令

我想把E1:AW1中,数值大于5并且小于12的对应列数全都删除,请问这个命令该怎么写?... 我想把E1:AW1中,数值大于5并且小于12的对应列数全都删除,请问这个命令该怎么写? 展开
 我来答
Excel办公_VBA
2017-07-07 · 教育领域创作者
个人认证用户
Excel办公_VBA
采纳数:3279 获赞数:2332

向TA提问 私信TA
展开全部
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语句条件修改即可
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式