VBA提取字符串指定数值遇类型不匹配错误，求解决方法

问题原因 #

当你执行atype = Worksheets("Inputs").Range("B21")时，因为是单个单元格，atype实际是字符串类型，并非数组，所以用数组下标语法atype(loc1 + 4)会触发类型不匹配错误。

无需转换为字符数组的解决方案 #

直接用字符串处理函数或分割函数就能快速提取目标值，以下是两种实用方法：

方法1：基于InStr和Mid精确定位

直接定位"Loan-"的位置，提取后续到%结束的内容：

Dim atype As String
Dim loc1 As Integer
Dim loanpct As String

atype = Worksheets("Inputs").Range("B21").Value
loc1 = InStr(atype, "Loan-") ' 直接定位"Loan-"更精准
If loc1 > 0 Then
    ' 从"Loan-"的下一位开始，截取到%的位置
    loanpct = Mid(atype, loc1 + 5, InStr(loc1 + 5, atype, "%") - (loc1 + 5) + 1)
End If

方法2：用Split分割字符串（更简洁）

将原字符串按空格分割为数组，再去掉前缀提取百分比：

Dim atype As String
Dim parts() As String
Dim loanpct As String

atype = Worksheets("Inputs").Range("B21").Value
parts = Split(atype, " ") ' 分割后parts(1)对应"Loan-38.13%"
If UBound(parts) >= 1 Then
    loanpct = Replace(parts(1), "Loan-", "") ' 移除"Loan-"前缀得到目标值
End If

总结 #

不需要将原字符串转换为字符数组来逐个访问元素，上述两种方法都能高效提取"38.13%"，其中Split的方式代码更简洁易读。

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