1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub 数据轮换() Dim myVal(), i As Integer, j As Integer On Error Resum髫潋啜缅e Next '排错 j=Selection.Areas.Count '统计选择了多少个单元格区域 ReDim myVal(1 To j) '重新定义数组 With Selection For i=1 To j '如果各个区域大小不一致，则退出程序 If .Areas(1).Cells.Count <> .Areas(i).Cells.Count Then Exit Sub Next i For i=1 To j myVal(i)=.Areas(i).Value Next i .Areas(1)=myVal(j) For i=1 To j .Areas(i+1)=myVal(i) Next i End WithEnd Sub
5、程序已将4个区域中的数据交换一次，若再运行一次程序，则继续转换区域中的数据
