Excel 2010 新建删除"列" 的宏.......

发布网友发布时间：2023-05-06 06:01

共1个回答

热心网友时间：2023-11-18 21:08

Sub test()
Range("A:A,d:d,i:i,m:m,n:n,o:o,p:p").Select
Selection.Delete Shift:=xlToLeft
Range("a1").Select
End Sub追问

呃...

Sorry.说错了...这个删除列的我自己录制出来了..

我需要的是

先检测第一行名字为"JASORC" "dept" "JALACC" "PTYA" "JAJAYR" "JAJAPR" "JAASTS" 然后再删掉这几列

就是先检测到红字的这几列, 然后删除整列...

热心网友时间：2023-11-18 21:08

Sub test()
Range("A:A,d:d,i:i,m:m,n:n,o:o,p:p").Select
Selection.Delete Shift:=xlToLeft
Range("a1").Select
End Sub追问

呃...

Sorry.说错了...这个删除列的我自己录制出来了..

我需要的是

先检测第一行名字为"JASORC" "dept" "JALACC" "PTYA" "JAJAYR" "JAJAPR" "JAASTS" 然后再删掉这几列

就是先检测到红字的这几列, 然后删除整列...

热心网友时间：2023-11-18 21:08

Sub test()
Range("A:A,d:d,i:i,m:m,n:n,o:o,p:p").Select
Selection.Delete Shift:=xlToLeft
Range("a1").Select
End Sub追问

呃...

Sorry.说错了...这个删除列的我自己录制出来了..

我需要的是

先检测第一行名字为"JASORC" "dept" "JALACC" "PTYA" "JAJAYR" "JAJAPR" "JAASTS" 然后再删掉这几列

就是先检测到红字的这几列, 然后删除整列...

Excel 2010 新建删除&quot;列&quot; 的宏.......