[µo°Ý] ¨ú¦r¦êºÃ°Ý

Michelle-W

½Ð°Ý§Ú·Q­n¨ú¯S©w²Å¸¹¤¤¶¡ªº¦r¦ê
°£¤F§â¸ê®Æ­åªR±o¨ì¥H¥~
µ{¦¡½XÀ³¸Ó­n¦p¦ó¼¶¼g? ÅÞ¿è¬O¤°»òQQ
¸ê®Æ¤j·§150~200µ§¡A¤§«á¥i¯à·|¦A¼W¥[


·P®¦


Á|¨Ò¡õ
¨ú¦r¦ê.rar (6.26 KB)

¤U¸ü¦¸¼Æ: 9

2016-8-18 09:32

Michelle-W

¦^´_ 4# ­ã´£³¡ªL
¦^´_ 5# c_c_lai

§Ú¯uªºÁÙ­n¦h¥[±j¤@¤U¼¶¼gÅÞ¿è
«e½ú­Ì³o»ò§Y®Éªº«ü¾É
¯uªº«D±`·PÁÂ!!!・£s・

c_c_lai

¦^´_ 3# Michelle-W
¸Õ¸Õ¬Ý¡I

1. Sub Ex()
   
2.     Dim rng As Range
   
3. 
   
4.     For Each rng In Range([A2], [A2].End(xlDown))
   
5.         rng.Offset(, 5) = Split(Split(rng.Value & "//", "//")(1) & "/", "/")(0)
   
6.     Next
   
7. End Sub

½Æ»s¥N½X

­ã´£³¡ªL

¤èªk¤@¡G
Sub test0818_1()
Dim xR As Range, T$
For Each xR In Range([A2], [A65536].End(xlUp))
¡@¡@T = Split(xR & "//", "//")(1)
¡@¡@T = Split(T & "/", "/")(0)
¡@¡@If T <> "" Then xR(1, 2) = T
Next
End Sub

¤èªk¤G¡G
Sub test0818_2()
[A:A].Copy [B:B]
[B:B].Replace "*//", "", Lookat:=xlPart
[B:B].Replace "/*", "", Lookat:=xlPart
End Sub

Michelle-W

¦^´_ 2# ­ã´£³¡ªL


ÁÂÁ­ã¤j
½Ð°Ý¦pªG§Ú­n±N¦r¦ê¨Ì§Ç©ñ¤JBÄæ¸Ì­±¡AÀ³¸Ó­n«ç»ò¼g?

¦Û¤v§ï¤F¤@¤U¡A¦n¹³¦³¿ù»~Q"Q
lastrow = Sheet1.[A65536].End(xlUp).Row
TT = Range("A2:A" & lastrow)
T = Split(Split(TT & "//", "//")(1) & "/", "/")(0)
Cells(lastrow, 2) = T

­ã´£³¡ªL

TT$ = [A2]
T = Split(Split(TT & "//", "//")(1) & "/", "/")(0)
MsgBox T

¤À¸Ñ°Ê§@
TT$ = [A2]
T = Split(TT & "//", "//")(1)  ¥H"//"¤À¹j, ¨ú¥k¤è¤å¦r
T = Split(T & "/", "/")(0)   ¥H"/"¤À¹j,  ¨ú¥ª¤è¤å¦r
MsgBox T