求大神帮忙解决 急用

lsdongjh

1. Sub Test()
   
2.     Dim sh As Worksheet, rg As Range
   
3.     Dim lngCols As Long, lngCol As Long
   
4.    
   
5.     Set sh = Sheets("excel_191007_143452")
   
6.     Set rg = sh.UsedRange
   
7.     '按 到达时间 升序排列
   
8.     rg.Sort key1:=Range("O1"), order1:=xlAscending, Header:=xlYes
   
9.    
   
10.     '取得最大列数
    
11.     lngCols = sh.UsedRange.Columns.Count
    
12.     '倒序删除相应的列
    
13.     For lngCol = lngCols To 1 Step -1
    
14.         Select Case lngCol
    
15.             Case 3 To 5, 10 To 14, 18 To 25
    
16.                 sh.Columns(lngCol).Delete
    
17.         End Select
    
18.     Next
    
19. End Sub

复制代码

chenyun1234

oyygo 发表于 2019-10-8 09:21
你算啥 删我帖子 自己录制了一段宏 改了下可以满足功能了
Sub auto()
    Range("C:C,D:D,E:E,J:J,I:I, ...

1、不好意思，我觉得直接删除就可以达到，干嘛要写VBA呢？

2、你自己都会写了，请教高人就得了,

3、一看建议删除，就自己动手解决了！

oyygo

chenyun1234 发表于 2019-10-8 10:02
1、不好意思，我觉得直接删除就可以达到，干嘛要写VBA呢？

2、你自己都会写了，请教高人就得了,

重复劳动很多的麻烦 。手动的的很烦的。 你没回复之前就解决了 。自己只是录完宏改了几个变量 我回啥？
麻烦解决我新发的帖子 谢谢了

dgenson

你看这不是学会了吗。加油