【2.2.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中工具->选项->通用 里有中断模式可以更改。(看蓝色的那两个按钮,双杠的那个是中断,右边的那个是结束,点击结束,再点击运行就可以运行了!)

个人公众号,比较懒,很少更新,可以在上面提问题,如果回复不及时,可发邮件给我: tiehan@sina.cn

Sam avatar
About Sam
专注生物信息 专注转化医学