如何利用VBA结合Left/Right函数提取Excel单个单元格序列的首尾值？

没问题，这事儿在日常处理Excel数据时挺常见的，咱们完全可以用VBA结合Excel的Left、Right函数来实现。不过得先明确你的数据序列是用什么分隔符分开的——比如逗号、空格、分号？我下面就以最常用的逗号+空格（示例序列：苹果, 香蕉, 橙子, 葡萄）为例来写代码，你可以根据自己的实际分隔符直接替换调整。

一、提取序列的首个值 #

核心思路是：先用InStr函数找到第一个分隔符的位置，再用Left截取从单元格开头到该位置之前的内容。

这里给你写个自定义函数，直接在Excel单元格里就能调用：

Function GetFirstValue(cell As Range) As String
    ' 定义分隔符，根据你的实际情况替换
    Dim delimiter As String
    delimiter = ", "
    
    ' 检查单元格内容里是否存在分隔符
    If InStr(cell.Value, delimiter) > 0 Then
        ' 截取从开头到第一个分隔符前的内容
        GetFirstValue = Left(cell.Value, InStr(cell.Value, delimiter) - 1)
    Else
        ' 如果单元格只有单个值，直接返回该值
        GetFirstValue = cell.Value
    End If
End Function

使用方法 #

在任意空白单元格输入=GetFirstValue(A1)，就能提取A1单元格序列的第一个值啦。

二、提取序列的末尾值 #

要提取末尾值，得先用InStrRev函数反向查找最后一个分隔符的位置，再用Right截取该位置之后的内容。同样写个自定义函数：

Function GetLastValue(cell As Range) As String
    ' 定义分隔符，根据实际情况替换
    Dim delimiter As String
    delimiter = ", "
    
    ' 检查是否存在分隔符
    If InStrRev(cell.Value, delimiter) > 0 Then
        ' 计算需要截取的长度，再用Right提取末尾值
        ' 这里要注意减去分隔符本身的长度（比如", "是2个字符）
        GetLastValue = Right(cell.Value, Len(cell.Value) - InStrRev(cell.Value, delimiter) - Len(delimiter) + 1)
    Else
        ' 无分隔符时直接返回单元格内容
        GetLastValue = cell.Value
    End If
End Function

小提示 #

如果你的分隔符是单个字符（比如纯逗号","），那上面的代码可以简化：提取末尾值的那一行改成GetLastValue = Right(cell.Value, Len(cell.Value) - InStrRev(cell.Value, delimiter))就行，因为单个分隔符长度为1，直接减去位置就好。

使用方法 #

在空白单元格输入=GetLastValue(A1)，就能拿到A1单元格序列的最后一个值了。

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