3个回答
展开全部
使用下述代码即仔掘李可实现:
Sub main()
Columns(6).Delete
Columns(4).Delete
Columns(1).Delete
End Sub
其中用到的Columns是列散念的意思,括号里面的数字,就是列数,如A列就是1,D列对念迟应4,F列对应6等;
这其中用到了一个小技巧,就是从后往前删除列。如果是从前往后删除,就会出错。以题目为例,如果先删除A列,那么根据Excel默认设置,后面的列会自动往前进,原来的D列就变成了C列,接下来还是要删除第4列(D列),就变成删除原来的E列了;而如果从后往前删除就不会用问题,同类删除多行时,要从下往上删除。
Sub main()
Columns(6).Delete
Columns(4).Delete
Columns(1).Delete
End Sub
其中用到的Columns是列散念的意思,括号里面的数字,就是列数,如A列就是1,D列对念迟应4,F列对应6等;
这其中用到了一个小技巧,就是从后往前删除列。如果是从前往后删除,就会出错。以题目为例,如果先删除A列,那么根据Excel默认设置,后面的列会自动往前进,原来的D列就变成了C列,接下来还是要删除第4列(D列),就变成删除原来的E列了;而如果从后往前删除就不会用问题,同类删除多行时,要从下往上删除。
展开全部
录制冲氏一个宏,按住CTRL,选中A列散局散,D列,F列,然后按删除.宏录制完了.再把宏内容看一下,就腊扮知道怎么处理.
如下:
Range("A:A,D:D,F:F").Select
Selection.Delete Shift:=xlToLeft
如下:
Range("A:A,D:D,F:F").Select
Selection.Delete Shift:=xlToLeft
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Sub TEST()
Range("A:A,D:D,F:F").Delete
End Sub
Range("A:A,D:D,F:F").Delete
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |