[已解决]求教【保留B和E列其他列都删除】？

eikok

Sub zz()
    Dim k As Range
    For Each c In Me.UsedRange.Columns
        If c.Column <> 2 And c.Column <> 5 Then
            If k Is Nothing Then
                Set k = Columns(c.Column)
            Else
                Set k = Union(k, Columns(c.Column))
            End If
        End If
    Next
    k.Delete
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2017-1-31 12:46

Sub test()
    Range("a:a,c:d,f:iv").ClearContents
End Sub

03以后的，iv改成xfd

跳转到最佳答案楼层

爱疯

Sub test()
    Range("a:a,c:d,f:iv").ClearContents
End Sub

03以后的，iv改成xfd

eikok

爱疯 发表于 2017-1-31 12:46
Sub test()
    Range("a:a,c:d,f:iv").ClearContents
End Sub

超级版主新年快乐
再求教一下excel2003
这个【查看代码】是灰色的该咋设置成可以编辑代码？ 【安全性】已经调到最低了

爱疯

我的电脑上没装03。

不知你的03是不是选择的完整安装？

如果你的03没问题，编辑代码也可按快捷键 alt+f11

eikok

爱疯 发表于 2017-2-6 11:52
我的电脑上没装03。

不知你的03是不是选择的完整安装？

alt+f11也不好使咱们网站有excel2003 VBA的安装包吗？（我的excel2003可能不是完整版）

eikok

爱疯 发表于 2017-1-31 12:46
Sub test()
    Range("a:a,c:d,f:iv").ClearContents
End Sub

多谢超级版主！这条挺好能删除数据
有能删除列的代码吗？

爱疯

能删除列的，2楼是删除列的啊？
不清楚你说的效果

eikok

爱疯 发表于 2017-3-1 08:47
能删除列的，2楼是删除列的啊？
不清楚你说的效果

好的问题已解决，非常感谢 超级版主{:1112:}