参考代码
Dim cs() As String = {"第一列", "第二列", "第三列"}
Dim r1 As Row = Tables("表A").rows(0)Dim r2 As Row = Tables("表A").rows(1)
For Each c As String In cs Dim temp As String = r1(c) r1(c) = r2(c) r2(c) = tempNext