vba 调换指定列的位置

 

 

Sub dh()

'不加"Sheets("指定页")."默认当前页

x = Sheets("Sheet1").[A65536].End(xlUp).Row
b = Sheets("Sheet1").Range("b1:b" & x)
c = Sheets("Sheet1").Range("c1:c" & x)
Sheets("Sheet1").Range("b1:b" & x) = c
Sheets("Sheet1").Range("c1:c" & x) = b

End Sub

 

文件:https://files-cdn.cnblogs.com/files/blogs/720078/dh.zip