VBA获取单元格末尾两个空格分隔的可变长度数字并赋值变量

嗨，这个需求我太熟了！之前处理过类似的文本拆分场景，完全不用写一堆繁琐的If判断，用字符串拆分的思路就能高效解决，分两种场景给你方案：

1. 用Excel公式直接提取（无需VBA） #

如果不想写代码，用现成的字符串组合公式就能搞定，不管末尾数字是1/2/3位都适用：

• 提取倒数第二个数字（比如示例里的100）：

  =TRIM(MID(SUBSTITUTE(A1," ",REPT(" ",100)),LEN(A1)-LEN(SUBSTITUTE(A1," ",""))*100-99,100))
  

• 提取最后一个数字（比如示例里的101）：

  =TRIM(RIGHT(SUBSTITUTE(A1," ",REPT(" ",100)),100))
  

原理很简单：先把所有空格替换成足够长的空格串（比如100个），然后通过截取右边/中间的固定长度内容，再去除多余空格，就能精准拿到最后两个分隔项。

2. 用VBA赋值给变量（适合批量处理） #

既然你提到要把数字赋值给变量，用VBA的Split函数是最省心的选择，代码简洁还灵活：

Sub GetLastTwoNumbers()
    Dim targetCell As Range
    Dim textParts As Variant
    Dim firstNum As String, secondNum As String
    
    ' 替换成你需要处理的单元格，也可以改成批量循环范围
    Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("A1")
    
    ' 按空格拆分字符串成数组
    textParts = Split(targetCell.Value, " ")
    
    ' 直接取数组倒数两个元素（不用管数字长度）
    firstNum = textParts(UBound(textParts) - 1) ' 倒数第二个数字
    secondNum = textParts(UBound(textParts)) ' 最后一个数字
    
    ' 这里可以根据需求把变量用在其他地方，比如写入单元格
    targetCell.Offset(0, 1).Value = firstNum
    targetCell.Offset(0, 2).Value = secondNum
End Sub

这个方法的核心是Split函数会自动把所有空格分隔的内容拆成数组元素，不管数字是1位还是3位，倒数两个元素必然是你要的数字，完全不用判断长度，比一堆If高效太多！

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