代码运行结果：

代码截图：

代码文本：

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

注释：

1. public sub: 表示所有模块的所有其它过程都可访问这个 Sub 过程。

2. 此处可根据个人需求，删除代码中的一种，由此可自动切换为A1引用样式，或者R1C1引用样式。

VBA编辑神器放送

VBA编程懒人神器推荐 VBA代码助手 可以极大提高编程速度，降低编程门槛欢迎使用
VBA密码破解 VBA代码对齐  VBA代码混淆保护加密 代码库输入提示 VBA模块隐藏
下载链接：http://excel880.com/blog/archives/11297