vba如何提取特定符号前的数值

13602822168

过客fppt 发表于 2024-8-20 11:33
提取符号后的改这里，可以mid或者right函数提取，还要用到len获取字符串总长度，以计算出*号后面有几位字 ...

谢谢！！！后面固定6位或者7位，len在哪里改

limonet

13602822168 发表于 2024-8-20 11:27
谢谢！！！！符号后的要改哪里。

在表格内看到符号后，但是你的题目只说符号"前"，那就一题两问了。

13602822168

limonet 发表于 2024-8-20 11:45
在表格内看到符号后，但是你的题目只说符号"前"，那就一题两问了。

是的，还要符号后的。谢谢！！

limonet

加个数组，mid

limonet

Sub limonet()
    Dim Arr As Variant, i%, j%, Brr(1 To 9999, 1 To 9) As Variant
    Arr = Range("F1").CurrentRegion
    For i = 1 To UBound(Arr)
        For j = 1 To 2
            If Arr(i, j) Like "*[*]*" Then
                Brr(i, j) = Left(Arr(i, j), InStr(Arr(i, j), "*") - 1)
                Brr(i, j + 2) = Mid(Arr(i, j), InStr(Arr(i, j), "*") + 1)
            End If
        Next j
    Next i
    Range("I1").Resize(i - 1, 4) = Brr
End Sub

13602822168

limonet 发表于 2024-8-20 11:59
Sub limonet()
    Dim Arr As Variant, i%, j%, Brr(1 To 9999, 1 To 9) As Variant
    Arr = Range("F ...

感谢！！！！！感谢！！！！

longwin

Sub test()
arr = [f1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 4)
For i = 1 To UBound(arr)
    For j = 1 To UBound(arr, 2)
    If InStr(1, arr(i, j), "*") > 0 Then
           brr(i, j) = Split(arr(i, j), "*")(0)
           brr(i, j + 2) = Split(arr(i, j), "*")(1)
        End If
    Next
Next
[l1].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

longwin

Qs18

Sub qs()
Dim arr, i
On Error Resume Next
arr = Sheet1.Range("f1").CurrentRegion.Value
x = 11
For j = 1 To UBound(arr, 2)
ReDim brr(1 To UBound(arr), 1 To 1)
ReDim crr(1 To UBound(arr), 1 To 1)

    For i = 1 To UBound(arr)
        s = arr(i, j)
        If InStr(s, "*") Then
           ss = Split(s, "*")
           brr(i, 1) = ss(0): crr(i, 1) = ss(1)
        End If
    Next
x = x + 1
Sheet1.Cells(1, x).Resize(UBound(brr), 1) = brr
Sheet1.Cells(1, x + 3).Resize(UBound(brr), 1) = crr
Erase brr
Erase crr
Next
End Sub

Qs18

试试.............