如何通过VBA调用Excel公式批量提取单元格文本？

你之前尝试用常规方法调用公式失败，核心原因是这个公式属于数组公式，普通的Formula属性无法正确解析数组常量，以下是两种可行的自动化方案：

方案1：VBA批量写入数组公式 #

直接利用FormulaArray属性批量设置数组公式，适配原公式的逻辑：

Sub ExtractTextWithArrayFormula()
    Dim srcRange As Range
    Dim destRange As Range
    
    ' 定位源数据和目标输出范围
    Set srcRange = Sheet1.Range("A2:A5000")
    Set destRange = Sheet3.Range("B2:B5000")
    
    ' 批量设置数组公式（用R1C1相对引用确保每个单元格对应正确源数据）
    destRange.FormulaArray = "=LEFT(Sheet1!RC[-1],MIN(FIND({1,2,3,4,5,6,7,8,9,0},Sheet1!RC[-1] & ""1234567890""))-1)"
    
    ' 可选操作：将公式结果转为静态值，避免源数据变动影响结果，同时减小文件体积
    destRange.Value = destRange.Value
End Sub

方案2：VBA自定义逻辑批量处理（更高效） #

如果觉得数组公式运行效率低，或者不想依赖公式，可以用VBA直接实现相同的文本提取逻辑，处理5000行数据速度更快：

首先添加自定义函数（插入模块后粘贴）：

Function GetTextBeforeFirstNum(cellText As String) As String
    Dim charPos As Integer
    Dim currentChar As String
    
    ' 逐个字符遍历，找到第一个数字的位置
    For charPos = 1 To Len(cellText)
        currentChar = Mid(cellText, charPos, 1)
        If currentChar >= "0" And currentChar <= "9" Then
            GetTextBeforeFirstNum = Left(cellText, charPos - 1)
            Exit Function
        End If
    Next charPos
    
    ' 如果没有找到数字，直接返回原文本
    GetTextBeforeFirstNum = cellText
End Function

然后执行批量处理的宏：

Sub BatchProcessData()
    Dim sourceData As Variant
    Dim resultData As Variant
    Dim rowIndex As Long
    
    ' 将源数据一次性读入数组，大幅提升处理速度
    sourceData = Sheet1.Range("A2:A5000").Value
    ReDim resultData(1 To UBound(sourceData, 1), 1 To 1)
    
    ' 循环处理每一行数据
    For rowIndex = 1 To UBound(sourceData, 1)
        resultData(rowIndex, 1) = GetTextBeforeFirstNum(CStr(sourceData(rowIndex, 1)))
    Next rowIndex
    
    ' 将结果批量写入目标范围
    Sheet3.Range("B2:B5000").Value = resultData
End Sub

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