ä¸é¢çå ¬å¼è½æ»¡è¶³ä½ çè¦æ±åï¼å¦å¾ï¼
B2=TEXTJOIN("|",,LEFT(TRIM(MID(SUBSTITUTE(A2,"|",REPT(" ",99)),{1,2,3}*99-98,99)))&":"&IF(LEFT(TRIM(MID(SUBSTITUTE(A2,"|",REPT(" ",99)),{1,2,3}*99-98,99)))="2",RIGHT(TRIM(MID(SUBSTITUTE(A2,"|",REPT(" ",99)),{1,2,3}*99-98,99)),3)*2,RIGHT(TRIM(MID(SUBSTITUTE(A2,"|",REPT(" ",99)),{1,2,3}*99-98,99)),3)))
我就是不知道怎么写这个代码。。。需要将一列中的”2“后面的数据进行加倍
追答Function 二后乘以二(a$)
Dim Arr, Brr, i&
Arr = Split(a, "|")
For i = 0 To UBound(Arr)
Brr = Split(Arr(i), ":")
If Brr(0) = 2 Then
Arr(i) = Brr(0) & ":" & Brr(1) * 2
End If
Next i
二后乘以二 = Join(Arr, "|")
End Function