如何在Excel VBA中获取列字符并创建指定行的已用单元格范围？

核心需求实现步骤 #

假设已经定位到目标单元格所在行（示例为第34行），以下是实现从B列到该行最后一个非空单元格范围的完整方案：

1. 获取该行最后一个非空单元格的列号
   用End(xlToLeft)从行尾向左定位，高效获取最后有值的列：

   Dim targetRow As Long
   targetRow = 34 ' 替换为你的目标行号
   Dim lastCol As Long
   lastCol = Cells(targetRow, Columns.Count).End(xlToLeft).Column
   

2. 直接构建目标Range对象（无需单独转列字符）
   不需要把列号转成RS这类字符，直接用Cells的行号+列号方式构建范围，代码更健壮：

   Dim targetRange As Range
   Set targetRange = Range(Cells(targetRow, 2), Cells(targetRow, lastCol))
   ' 验证范围地址，可输出到立即窗口
   Debug.Print targetRange.Address ' 输出示例：$B$34:$RS$34
   

列号转列字符的内置方法 #

如果确实需要把列号转换成RS这类列标识字符串，有两种内置方式：

• 方法1：拆分Cells的Address属性
  利用单元格地址的格式提取列部分：

  Dim colLetter As String
  ' 取第1行对应列的地址，拆分后得到列标识
  colLetter = Split(Cells(1, lastCol).Address(True, False), "$")(0)
  ' 示例：lastCol为RS列对应的列号时，colLetter会返回"RS"
  

• 方法2：通过目标单元格地址提取
  就是你提到的用.Cells(Row, Column).Address获取标准引用后，拆分出列字符：

  Dim cellAddr As String
  cellAddr = Cells(targetRow, lastCol).Address(False, False) ' 得到"RS34"
  colLetter = Left(cellAddr, Len(cellAddr) - Len(CStr(targetRow)))
  

补充：用地址字符串构建范围 #

如果习惯用地址字符串拼接范围，也可以这样写：

Set targetRange = Range("B" & targetRow & ":" & Cells(targetRow, lastCol).Address(False, False))

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