¦p¦ó§Q¥Î¤½¦¡§ä¨ìAÄæ °Ï¤º*¤§«áªº¼Æ¦r
- ©«¤l
- 100
- ¥DÃD
- 37
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2010-8-11
- ³Ì«áµn¿ý
- 2024-3-12
|
¦p¦ó§Q¥Î¤½¦¡§ä¨ìAÄæ °Ï¤º*¤§«áªº¼Æ¦r
javascript:;
AÄæ ¸ê®Æ¦p¤U,¦p¦ó§Q¥Î¤½¦¡§ä¨ì°Ï¤º* ªº¼Æ¦r?
°Ï¤º*6
A13A04(°Ï¤º*18)
B04A02(°Ï¤º*521) |
-
-
TEST.zip
(7.35 KB)
|
|
|
|
|
|
- ©«¤l
- 976
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 1018
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-4-19
- ³Ì«áµn¿ý
- 2024-12-18
|
¦^´_ 1# VANESSA
½Ð´ú¸Õ¬Ý¬Ý¡A¤½¦¡¤£·|¡AÁÂÁÂ
Sub test()
Dim Arr, Brr
Arr = Range([a1], [a65536].End(3))
ReDim Brr(1 To UBound(Arr), 1 To 1)
For i = 2 To UBound(Arr)
If InStr(Arr(i, 1), "*") Then
a = Split(Arr(i, 1), "*")(1)
If InStr(a, ")") Then
Brr(i, 1) = Replace(a, ")", "")
Else
Brr(i, 1) = a
End If
End If
Next
Range("b1").Resize(UBound(Brr)) = Brr
End Sub |
|
|
|
|
|
|
- ©«¤l
- 1391
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 1401
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-9-11
- ³Ì«áµn¿ý
- 2024-12-16
|
|
google"EXCEL°g" blog ©Îgoogleºô§}:https://hcm19522.blogspot.com/
|
|
|
|
|
- ©«¤l
- 976
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 1018
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-4-19
- ³Ì«áµn¿ý
- 2024-12-18
|
¦^´_ 1# VANESSA
§ó·s2#¦p¤U¬õ¦r¡AÁÂÁÂ
Sub test()
Dim Arr, Brr
Arr = Range([a1], [a65536].End(3))
ReDim Brr(1 To UBound(Arr), 1 To 1)
For i = 2 To UBound(Arr)
If InStr(Arr(i, 1), "*") Then
a = Split(Arr(i, 1), "*")(1)
If InStr(a, ")") Then
Brr(i, 1) = Split(a, ")")(0)
Else
Brr(i, 1) = a
End If
End If
Next
Range("b1").Resize(UBound(Brr)) = Brr
End Sub |
|
|
|
|
|
|
- ©«¤l
- 2839
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2895
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-12-22
|
=MID(LEFT(A2,FIND(")",A2&")")-1),FIND("*",A2&"*")+1,19) |
|
|
|
|
|
|
- ©«¤l
- 100
- ¥DÃD
- 37
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2010-8-11
- ³Ì«áµn¿ý
- 2024-3-12
|
|
|
|
|
|
|