遍历删列怎么不行

xing_chen

老师！需遍历月表删指定的列，个表可以，但用上遍历则不行，起作用的却多删列。我希望模块中上半部分的遍历代码一定保持，下半部分的删除代码怎么修改，敬请老师赐教。谢谢

迪尼索斯

稍微改了改你的代码,C列我已经删了。ScreenUpdating关闭后程序运行完记得再打开

xing_chen

迪尼索斯 发表于 2023-3-12 22:16
稍微改了改你的代码,C列我已经删了。ScreenUpdating关闭后程序运行完记得再打开

谢谢老师！运行顺畅。但有2问题：1是我若运行单表则不行，我保留上半部分的愿意，就是一可以遍历，二则用于单表，按你给的代码，则不行；2就是我此代码用了多次和不同场景，但这次却不行，我查后发现是有此删列照成，所以我单独拿出，希望老师可以修改并说明为什么。

xing_chen

迪尼索斯 发表于 2023-3-12 22:16
稍微改了改你的代码,C列我已经删了。ScreenUpdating关闭后程序运行完记得再打开

抱歉！老师，花在旅途，明天送上。

xing_chen

xing_chen 发表于 2023-3-12 22:33
抱歉！老师，花在旅途，明天送上。

刚写的未现。简言之，代码用于个表不行。希望遍历和个表都适用。

杨建营

Sub 遍历清单月表()
Dim sh As Worksheet
Application.ScreenUpdating = False      '关闭屏幕刷新
For Each sh In Worksheets
    If sh.Name <> "" Then
        sh.Columns("C:C").Delete
    End If
Next
Application.ScreenUpdating = True
End Sub
这样删除不是很方便吗？

xing_chen

杨建营 发表于 2023-3-12 22:41
Sub 遍历清单月表()
Dim sh As Worksheet
Application.ScreenUpdating = False      '关闭屏幕刷新

谢谢老师回复！我保留二部分，是因为我有时需要操作单表，有时需要操作整个工作簿。

zxsea_7426

xing_chen 发表于 2023-3-12 22:40
刚写的未现。简言之，代码用于个表不行。希望遍历和个表都适用。

迪尼索斯

xing_chen 发表于 2023-3-12 22:40
刚写的未现。简言之，代码用于个表不行。希望遍历和个表都适用。

看楼上朋友的代码，应该就是你的意思

xing_chen

杨建营 发表于 2023-3-12 22:41
Sub 遍历清单月表()
Dim sh As Worksheet
Application.ScreenUpdating = False      '关闭屏幕刷新

刚发未现。简言就是方便操作簿和表