将数据从一列切换到另一列，而不用交换标题

如何创buildExcelmacros以将数据从列切换到另一个？ 但我不想交换标题。

码：

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