遍历删列怎么不行

zxsea_7426 · 发表于 2023-3-12 23:30

本帖最后由 zxsea_7426 于 2023-3-12 23:42 编辑

我看重点是在第二段代码注释部分吧

xing_chen · 发表于 2023-3-12 23:54

zxsea_7426 发表于 2023-3-12 23:26

谢谢老师！问题解决。花在旅途，明天献上。

杨建营 · 发表于 2023-3-13 06:27

xing_chen 发表于 2023-3-12 23:25
谢谢老师回复！我保留二部分，是因为我有时需要操作单表，有时需要操作整个工作簿。

Sub 单个清单月表()
Dim i&
Application.ScreenUpdating = False '关闭屏幕刷新
For i=[iv1].end(xltoleft).column to 2 step -1
If application.counta(colunmns(i))=0 Then
Columns(i).Delete
End If
Next
Application.ScreenUpdating = True
End Sub
这个可以单个工作表删除列，请参考。

ykcbf1100 · 发表于 2023-3-13 08:41

本帖最后由 ykcbf1100 于 2023-3-13 08:46 编辑

xing_chen 发表于 2023-3-12 23:54
谢谢老师！问题解决。花在旅途，明天献上。

你自己的代码，简单改一下就可以用于单表，在删除操作时要加上表名。

ykcbf1100 · 发表于 2023-3-13 08:44

但是，我觉得你的代码整复杂了，遍历时直接写上表名不是不可以，但有一定的局限性，在附件的情况下，可以有更合理的解决办法，所以，我也给出了我的代码。供参考。

xing_chen · 发表于 2023-3-13 11:48

ykcbf1100 发表于 2023-3-13 08:44
但是，我觉得你的代码整复杂了，遍历时直接写上表名不是不可以，但有一定的局限性，在附件的情况下，可以有 ...

谢谢老师！运行如愿。
花在旅途，到时献上

		自动登录	找回密码
密码			免费注册

[求助] 遍历删列怎么不行

评分

评分

评分