如何在VBA中获取Range.TextToColumns执行后的结果区域？

可以通过以下方式实现：

• 先记录拆分操作的起始单元格（TextToColumns会从原选区的左上角开始向外拆分扩展）
• 拆分完成后，基于起始单元格定位拆分后数据的边界，从而确定完整的结果区域

修改后的代码如下：

Dim startCell As Range
Set startCell = Selection.Cells(1, 1) ' 记录原选区的起始单元格

Call Selection.TextToColumns(DataType:=xlDelimited, comma:=True)

' 定位拆分后的结果区域
Dim resultRange As Range
Set resultRange = startCell.CurrentRegion ' CurrentRegion自动识别连续非空数据区域

Call OtherSub(resultRange)

补充说明 #

• CurrentRegion是VBA中适配任意数据规模的实用属性，它会选中从起始单元格开始、被空行/空列包围的连续数据区域，完全匹配拆分后的结果范围
• 如果原数据区域周围存在无关非空单元格，也可以手动计算边界：

  ' 手动计算最后一行和最后一列
  Dim lastRow As Long, lastCol As Long
  lastRow = startCell.Worksheet.Cells(startCell.Worksheet.Rows.Count, startCell.Column).End(xlUp).Row
  lastCol = startCell.Worksheet.Cells(startCell.Row, startCell.Worksheet.Columns.Count).End(xlToLeft).Column
  Set resultRange = startCell.Worksheet.Range(startCell, startCell.Worksheet.Cells(lastRow, lastCol))
  

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