wayne0303

¦^´_ 4# samwang

³ø§isamwang¤j¡I
  §Ú°õ¦æ§¹¨SªF¦è吔...

R¬O3~4¦ì¼Æ¦r

samwang

¦^´_  samwang

³ø§isamwang¤j¡I
  §Ú°õ¦æ§¹¨SªF¦è吔...

R¬O3~4¦ì¼Æ¦r
wayne0303 µoªí©ó 2021-8-30 23:54

¦pªþ¥ó¹Ï¤ù¡A§Ú°õ¦æ¨S°ÝÃD¨Ì¾Ú4#µ{¦¡½X¡Aµ²ªG¦bBÄæ¡A½Ð¦A½T»{¡AÁÂÁ¡C

wayne0303

¦^´_ 12# samwang


·PÁÂsamwang¤j¡I¦ý
   1.¦p¹Ï²{¦b¹J¨ì¥õ¨¤¬O­Ó¦ì¼Æ¦r¸òR¬°4¦ì¼Æ¦r´N·j´M¤£¨ì
   2.¦pªG§Úªºªí®æ¬O¥²»Ý¤Þ¥Î¨ì¥~³¡ªºªí®æ¨º§Ú­n§ï¥N½Xªº­þÃä©O¡H
   3.¥Î"¼Ò²Õ"ªº¸Ü¦³¿ìªk«ö­Ó·Æ¹«ªº¥kÁä©Î¥ªÁä´N§ó·s¼Æ­È ©Î¬O ¼Æ­È¦³Åܧó´N¥i¥ß§Y§ó·s¼Æ­È(¤£»ÝÃö±¼ÀɮצA¶})¡H

   ÁÂÁÂ

samwang

¦^´_ 13# wayne0303

½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

   1.¦p¹Ï²{¦b¹J¨ì¥õ¨¤¬O­Ó¦ì¼Æ¦r¸òR¬°4¦ì¼Æ¦r´N·j´M¤£¨ì  >> ¤w§ó·s¦pªþ¥ó
   2.¦pªG§Úªºªí®æ¬O¥²»Ý¤Þ¥Î¨ì¥~³¡ªºªí®æ¨º§Ú­n§ï¥N½Xªº­þÃä©O¡H >> µ{¦¡½X¦³³Æµù»Ý­n§ó§ïªº¦a¤è(²Ä1¬q)
   3.¥Î"¼Ò²Õ"ªº¸Ü¦³¿ìªk«ö­Ó·Æ¹«ªº¥kÁä©Î¥ªÁä´N§ó·s¼Æ­È ©Î¬O ¼Æ­È¦³Åܧó´N¥i¥ß§Y§ó·s¼Æ­È(¤£»ÝÃö±¼ÀɮצA¶})¡H  >>¤w§ó·s¡A·íA5~A65536¦³§ó·s·|¦Û°Ê§ó·s

ML089

C5 °}¦C¤½¦¡
=MAX(IF(SUBSTITUTE(SUBSTITUTE(LEFT(A5,FIND("Âà",A5)-1),"¥õ¨¤","/"),"¢X",)=({"R";0;0;0;0;0;"L";0;0;0;0;0;""}&D$4:W$16),D$3:W$15))

wayne0303

¦^´_ 15# ML089


·PÁÂML089¤j¤j ªº¶W²¼ä¤½¦¡~
¦ý§Ú¤Þ¥Î¥~³¡ªí®æªº®É­Ô·|¥X²{#N/A

ML089

¦^´_ 16# wayne0303

¤½¦¡´N¬O³Â·Ð¡A¥u­n²¾°Ê¤@¤U´N»Ý­n­×§ï

³Ì¦n¸ê®Æ¦ì¸m¡A¤½¦¡¦ì¸m­n¸ò§A¤¸¸ê®Æ¤@¼Ë¡A³o®³¦^¥h¤~¯àª½±µ®M¥Î¡C

¥ý¸Õ¸Õ©ñ¤J§A­ì¥ýªº¼Ë¥»EXCEL¬O§_OK

¯uªº¤£·|§ï¦A­«·sPO¤@¤U¥Ø«eªº¸ê®Æ®æ¦¡

wayne0303

¦^´_ 17# ML089

   

¦^´_  wayne0303

¤½¦¡´N¬O³Â·Ð¡A¥u­n²¾°Ê¤@¤U´N»Ý­n­×§ï

³Ì¦n¸ê®Æ¦ì¸m¡A¤½¦¡¦ì¸m­n¸ò§A¤¸¸ê®Æ¤@¼Ë¡A ...
ML089 µoªí©ó 2021-8-31 18:09

«¢«¢~ML089¤j¤j¡A¤½¦¡¬O¤ñ¸û¦n¤F¸Ñ°Õ¡A¤£µM§Ú¢þ¢ê¢é§¹¥þ­W¤â¡A¨S°ò©³¤]¬Ý¤£¤ÓÀ´...
§Ú­è¸Õ§ï¤F¤@¤U¥i¥H®M¥Î¤F

«D±`ÁÂÁ¤j¤jÀ°¦£~

wayne0303

¦^´_ 14# samwang


samwang¤j¤j~

2.¦pªG§Úªºªí®æ¬O¥²»Ý¤Þ¥Î¨ì¥~³¡ªºªí®æ¨º§Ú­n§ï¥N½Xªº­þÃä©O¡H ³o­Ó³¡¤À¨Ò¦p§Ú­n¤Þ¥Îªº¥~³¡ªí®æ¦bD:\¸ê®Æ§¨123\¬¡­¶Ã¯abc ¸Ìªº "d3:w16" ³o­Ó½d³ò¸Ó«ç»ò¼g©O¡H

ÁÂÁÂ

samwang

¦^´_  samwang


samwang¤j¤j~

2.¦pªG§Úªºªí®æ¬O¥²»Ý¤Þ¥Î¨ì¥~³¡ªºªí®æ¨º§Ú­n§ï¥N½Xªº­þÃä©O¡H ³o­Ó ...
wayne0303 µoªí©ó 2021-8-31 19:37

­×§ï¦p¬õ¦r³¡¤À¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub §ó·s()
Dim Arr, xD, T1$, T2$, T$, w1$, w2$, i&, j&, k%
Set xD = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set WB = Workbooks.Open("D:\¸ê®Æ§¨123\¬¡­¶Ã¯abc.xlsx")
Arr = Range("d3:w16")
WB.Close

For i = 2 To UBound(Arr) Step 6
    k = k + 1
    For j = 1 To UBound(Arr, 2)
        T = Arr(i, j): If T = "" Then GoTo 99
        xD(T & "_" & k) = Arr(i - 1, j)
    Next j
99: Next i
....
...
....