vba从一个包含多个逗号值的单元格提取指定位置数值

使用VBA可以很容易地从包含多个逗号值的单元格中提取指定位置的数值。首先，我们需要定义一个函数来实现这个功能。以下是一个实现的例子：

Function ExtractValue(cellValue As String, position As Integer) As Variant
    Dim values() As String
    values = Split(cellValue, ",")
    
    If position > 0 And position <= UBound(values) + 1 Then
        ExtractValue = Trim(values(position - 1))
    Else
        ExtractValue = "位置无效"
    End If
End Function

这个函数接受两个参数：单元格的值和要提取的位置。它首先使用`Split`函数将单元格的值按逗号分隔成一个数组。然后，它检查要提取的位置是否有效，如果有效，则返回在数组中相应位置的值（注意要将其去除两端的空格）。如果位置无效，则返回"位置无效"。

要在Excel中使用这个函数，将以下代码粘贴到VBA编辑器的模块中：

Public Function ExtractValue(cellValue As String, position As Integer) As Variant
    Dim values() As String
    values = Split(cellValue, ",")
    
    If position > 0 And position <= UBound(values) + 1 Then
        ExtractValue = Trim(values(position - 1))
    Else
        ExtractValue = "位置无效"
    End If
End Function

然后，可以在Excel中任意一个单元格中输入`=ExtractValue(A1, 3)`，其中A1是包含多个逗号值的单元格，3是要提取的位置。该函数将返回在第三个位置的值，例如在A1中的值是"1,2,3,4,5"，那么函数将返回3。

希望这可以帮助到你。如有其他问题，请随时提问。