VBA切换引用样式

Posted 2020-10-02 奔跑的金鱼

在Excle中有两种引用方式，例如：第一行第一列的单元格可以是：A1  也可以是R1C1

切换引用样式的代码如下：

Sub 切换引用样式()
    Application.ReferenceStyle = xlR1C1 \'切换为A1样式
    MsgBox "已经切换为R1C1样式！"
    Application.ReferenceStyle = xlA1 \'切换为R1C1样式
    MsgBox "已经切换为A1样式！"
End Sub

执行效果如下：

 

附件下载