Excel宏兼容R1C1：如何从R1C1地址重建Range对象？

你的问题根源在于Excel的PageSetup.PrintArea返回的地址格式会跟随当前应用的单元格引用样式（A1/R1C1），而Range()默认在A1引用模式下解析地址，当用户使用R1C1样式时，直接传入就会抛出错误。下面提供两种可靠的解决方法：

方法一：强制将R1C1格式地址转换为A1格式 #

使用Application.ConvertFormula函数，直接把PrintArea返回的地址转换成A1格式，无需修改用户的设置，兼容性最好。

修改后的代码：

Dim printAreaA1 As String
With SDS.PageSetup
    ' 先判断打印区域是否为空，避免空地址报错
    If .PrintArea <> "" Then
        ' 将R1C1格式转换为A1格式
        printAreaA1 = Application.ConvertFormula( _
            Formula:=.PrintArea, _
            FromReferenceStyle:=xlR1C1, _
            ToReferenceStyle:=xlA1)
        
        ' 使用转换后的A1地址创建Range对象
        If SDS.Range(printAreaA1).Rows.Count >= 53 Then
            .FitToPagesTall = 2
        Else
            .FitToPagesTall = 1
        End If
    End If
End With

说明： #

• 不管当前用户的引用样式是A1还是R1C1，ConvertFormula都能正确转换地址格式；
• 增加了PrintArea非空判断，避免空字符串传入Range()导致运行时错误。

方法二：临时切换引用样式后读取PrintArea #

先将Excel的引用样式临时切换为A1，读取PrintArea后再恢复原设置，确保获取的是A1格式地址。

修改后的代码：

Dim originalRefStyle As XlReferenceStyle
Dim printAreaA1 As String

' 保存用户当前的引用样式
originalRefStyle = Application.ReferenceStyle
' 强制切换到A1引用样式
Application.ReferenceStyle = xlA1

With SDS.PageSetup
    printAreaA1 = .PrintArea ' 此时获取的是A1格式地址
    If printAreaA1 <> "" Then
        If SDS.Range(printAreaA1).Rows.Count >= 53 Then
            .FitToPagesTall = 2
        Else
            .FitToPagesTall = 1
        End If
    End If
End With

' 恢复用户原来的引用样式，避免影响用户体验
Application.ReferenceStyle = originalRefStyle

说明： #

• 这种方法适合处理更复杂的引用场景（比如包含命名区域的打印地址）；
• 必须确保最后恢复原引用样式，否则会改变用户的Excel设置，影响后续操作。

测试验证 #

针对你提供的测试用例：

• R1C1格式打印区域："R23C2:R125C12,R23C14:R125C24"
• 通过上述两种方法转换后，都能得到正确的A1格式："$B$23:$L$125,$N$23:$X$125"，Range()可以正常创建对象并统计行数。

内容的提问来源于stack exchange，提问作者Toddleson