移动列但保留 headers

Question

下午好，

我有一个工作表 'Example'，其中有两个空白列包含 headers (B & C)，还有两个 data-containing 列没有 headers (E & F）。

我希望能够使用 VBA 在不影响 headers 的情况下向左移动列（就像使用 'Range("B:B,C:C").Delete' 但不摆脱 'Job' & 'City' headers)。如下：

从这里 -

 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

我希望这是有道理的。如果您需要进一步说明，请告诉我。

Thank-you。

Answer 1

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

移动列但保留 headers

Shift columns but retain headers

excel

vba

spreadsheet