VBA中关于取特定字符串的问题7

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

共2个回答

热心网友时间：2024-11-23 12:03

在A列输入你的原始数据
B列输出结果
Sub test5()
Dim i As Integer
Dim v
i = 1
Do
v = Split(Cells(i, 1), "-")
Cells(i, 2) = v(1)
i = i + 1
Loop Until Cells(i, 1) = ""
End Sub追问这个是EXCLE里的吧！

热心网友时间：2024-11-23 12:03

Function 截取数据(源数据 As String) As String
Dim k As Long, str As String
k = InStr(源数据, "-")
str = Mid(源数据, k + 1)
k = InStr(str, "-")
截取数据 = Left(str, k - 1)
End Function追问你的代码输出结果是对的，非常感谢，我找到更简洁的代码了
结果 = Split(数据源, "-")(1)

追答呵呵，我知道这个函数，但是我以为VBA不支持，我没用过VBA

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