將數據從一列切換到另一列而不交換標題

Question

如何創建Excel宏以將數據從列切換到另一列？但我不想交換標題。

代碼：

Sub myCode() 
Dim r1 As Range 
Dim r2 As Range 
Dim v As Variant 
Set r1 = Columns("A:B") 
Set r2 = Columns("B:B") 
v = r1.Value 
r1.Value = r2.Value 
r2.Value = v 
End Sub 

我的問題是，它是交換標題了。我只需要交換數據。

Answer 1

跳過標題行

Sub dural() 
    Dim A2 As Range, B2 As Range 
    Set A2 = Range("A2:A" & Rows.Count) 
    Set B2 = Range("B2:B" & Rows.Count) 

    v = A2 
    A2.Value = B2.Value 
    B2 = v 
End Sub