2017-06-06 50 views
0

下午好,移位列,但保留标题

我有一个工作表“实施例”与包含标头(B & C)两个空白列和两个含有数据列不具有报头(E & F) 。

我希望能够使用VBA在不影响标题的情况下将列移动到左侧(例如使用'Range(“B:B,C:C”)'Delete',但不要删除'Job' &'城市'标题)。如下图所示:

从这 -

A  B  C   D    E    F 
Name  Job  City  Country    
---------------------------------------------------------------- 
Andrew     Doctor  Manchester  England 
George     Lawyer  New York  America 
Paul      Engineer  Birmingham  England 
Carl      Technician London   England 
Joe      Optician  Detroit  America 

为了这一点 -

A   B    C    D   E    F 
Name  Job   City   Country    
----------------------------------------------------------------------- 
Andrew Doctor  Manchester  England 
George Lawyer  New York  America 
Paul  Engineer  Birmingham  England 
Carl  Technician London   England 
Joe  Optician  Detroit  America 

我希望这是有道理的。让我知道你是否需要进一步澄清。

谢谢你。

+0

因此,在删除列之前插入一个新的B1:C1,然后按Shift! – pnuts

+0

或者只是突出显示单元格B2:C100或任何你最后一行,然后选择删除 - >左移单元格 – Jordan

回答

0
Worksheets("Example").Range("B2:C99999").Delete Shift:=xlToLeft 
+1

完美地完成了这个技巧。谢谢你,先生。 –

+0

@ Liviu-Adrian欢迎您。 –