在表格中每隔1列隐藏2列

新手菜鸟1

收入	新车间发出	老车间发出	收入	新车间发出	老车间发出	收入	新车间发出

我想隐藏发出只显示所有收入列

望帝春心

1. Sub Greenhand()
   
2.     For i = 1 To Cells(1, Columns.Count).End(1).Column
   
3.         If Cells(1, i) <> "收入" Then
   
4.             Columns(i).ColumnWidth = 0
   
5.         End If
   
6.     Next
   
7. End Sub

复制代码

非收入列隐藏

新手菜鸟1

望帝春心 发表于 2016-11-23 12:51
非收入列隐藏

大神，这个是编程吗？能教我下具体步骤吗？

望帝春心

新手菜鸟1 发表于 2016-11-25 08:28
大神，这个是编程吗？能教我下具体步骤吗？

ALT + F11，代码放入模块中，F5执行一下就隐藏了