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

13602822168

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

limonet

VBA可以用left(range,instr(range,"*")-1)

13602822168

limonet 发表于 2024-8-20 11:00
VBA可以用left(range,instr(range,"*")-1)

具体是怎么写？？谢谢！

limonet

13602822168 发表于 2024-8-20 11:02
具体是怎么写？？谢谢！

这个没有任何含量，纯体力活；就是把RANGE换成目标单元格或数组单元。

13602822168

limonet 发表于 2024-8-20 11:11
这个没有任何含量，纯体力活；就是把RANGE换成目标单元格或数组单元。

本人小白一个

limonet

关键字：体力活

limonet

符号前的数值
Sub limonet()
    Dim Arr As Variant, i%, j%
    Arr = Range("F1").CurrentRegion
    For i = 1 To UBound(Arr)
        For j = 1 To 2
            If InStr(Arr(i, j), "*") > 0 Then
                Arr(i, j) = Left(Arr(i, j), InStr(Arr(i, j), "*") - 1)
            Else
                Arr(i, j) = Empty
            End If
        Next j
    Next i
    Range("I1").Resize(i - 1, 2) = Arr
End Sub

13602822168

limonet 发表于 2024-8-20 11:25
关键字：体力活

谢谢！！！！符号后的要改哪里。

usedrange

1. Sub tt()
   
2.     Dim i%, arr, br, t, r%
   
3.     arr = [f1].Resize([f1].End(4).Row, 1)
   
4.     ReDim br(1 To UBound(arr), 1 To 2)
   
5.     r = 1
   
6.     For i = 1 To UBound(arr)
   
7.         If InStr(arr(i, 1), "*") > 0 Then
   
8.             t = Split(arr(i, 1), "*")
   
9.             br(r, 1) = t(0)
   
10.             br(r, 2) = t(1)
    
11.             r = r + 1
    
12.         End If
    
13.     Next i
    
14.     [L2].Resize(UBound(br), 2) = br
    
15. End Sub

复制代码

过客fppt

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

提取符号后的改这里，可以mid或者right函数提取，还要用到len获取字符串总长度，以计算出*号后面有几位字符