VBA里,如何将表中的特定字符串提取出来?1

发布网友发布时间：2023-09-22 17:30

共2个回答

热心网友时间：2023-10-19 10:07

用instr函数，len函数，left函数，right函数等组合起来

热心网友时间：2023-10-19 10:07

F=8.4$W=8.3$Y=7.1$
这是一个单元格还是三个单元格？
请给出详细截图，才能有详细代码。追问一个单元格

追答

Dim t, a, b, i, myStr As String
For t = 1 To 18
    myStr = Cells(t, 1)
    a = InStr(1, myStr, "Y=")
    If a > 0 Then
        b = InStr(a + 2, myStr, "$")
        If b > a Then
            i = Trim(Mid(myStr, a + 2, b - a - 2))
            Debug.Print i
        ElseIf b = 0 Then
            i = Trim(Mid(myStr, a + 2))
            Debug.Print i
        End If
    End If
Next t
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com