如何写一个VBA代码使得相邻两行或者不相邻两行的EXCEL表数据互换要求VBA

发布网友发布时间：2022-02-27 10:20

共1个回答

热心网友时间：2022-02-27 11:49

Sub change()
Dim a, b, c
'a,b为要交换的行号，c为中间变量
a = 1 '为a赋值
b = 2 '为b赋值
Set sh1 = ThisWorkbook.ActiveSheet
For i = 1 To 30 '假设数据为有1到30列
c = sh1.Cells(a, i).Value
sh1.Cells(a, i).Value = sh1.Cells(b, i).Value
sh1.Cells(b, i).Value = c
Next
Set c = Nothing
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com