【2.3.1】Excel中宏来实现数据位置的变化

excel中通过宏将a1-a35的数据转化为a1-g5中。

Sub Formatloc()
'
' Formatloc 宏
'
'
Dim ar, br(1 To 5, 1 To 7), i, j, n
ar = [A1:A35]
For i = 1 To 5:
    For j = 1 To 7:
        n = n + 1
        br(i, j) = ar(n, 1)
    Next
Next
[a1:g5] = br
    
End Sub

如果运行一次以后，再运行，就会报错“在中断模式不能执程序代码”

解决办法：

VB中工具->选项->通用 里有中断模式可以更改。（看蓝色的那两个按钮，双杠的那个是中断，右边的那个是结束，点击结束，再点击运行就可以运行了！）