怎样使用VBA怎样使用VBA？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 数据轮换()

    Dim myVal(), i As Integer, j As Integer
    On Error Resume 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 With
End Sub

5、程序已将4个区域中的数据交换一次，若再运行一次程序，则继续转换区域中的数据