excel如何隔列选中

发布网友发布时间：2022-04-30 14:57

共2个回答

热心网友时间：2022-06-25 19:23

在开始处（A1)插入一列，A1、B1、C1、D1，以此输入1、2、3、4，然后向后填充，然后选中全部数据，排序---选项---选中按行排序

热心网友时间：2022-06-25 19:23

Sub 选中4倍数列()
Dim i, n
Application.ScreenUpdating = False
n = InputBox("输入需要选择多少列", , 4)'此处默认选择4列即D H L P
Columns("A:C").Select
Selection.EntireColumn.Hidden = True

For i = 1 To n
Selection.Offset(0, 4 * i).EntireColumn.Hidden = True
Next

Range(Columns(1), Columns(4 * n)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
For i = 1 To 4 * n
Cells.Columns(i).Hidden = False
Next
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com