Andy2483

¦^´_ 6# 198188


    AM-JO58-01-1, AM-JO58-01-2, AM-JO58-02
³o´X­ÓªíªºEÄæ¬OÁôÂð_¨Óªº,§Aªº¤â°Ê¤ñ¹ï¦³»~

¤U¸ü (64.42 KB)

2024-2-26 14:59

198188

¤U¸ü (70.88 KB)

2024-2-26 14:12

    ùØ­±5­Ó¸ê®Æ³£¬O¤@¼Ëªº¡A¤£¹L«È¤á´£¨Ñªºª©¥»¦³Àx¦s®æ®æ¦¡°ÝÃD¡A©Ò¥H¾É­P¹ï¤£¤W¡C
§Ú·N«ä¬O°Ý«e½ú¡A¦³¨S¦³¤@¥yµ{¦¡¡A¥i¥H¦b®Ö¹ï¸ê®Æªº®É­Ô¡A¸õ¹L³oºØ®æ¦¡°ÝÃD¡H

Andy2483

¦^´_ 4# 198188


    ÃD·N¬Ý°_¨Ó¬O5Äæ¥þ¦P¤~¼Ð"Y",
½d¨ÒºÉ¶q¬O¦³¤â°Ê³B²z¦n·Q­nªºµ²ªGªþ¦b½d¨Ò¸Ì

198188

¦^´_ 3# Andy2483


    ¤j­P¥i¥H¡A¤£¹L¦³­Ó³¡¤À¦³°ÝÃD¡AAM-JO58-01-1, AM-JO58-01-2, AM-JO58-02 ªºÄæB ¦]爲¤£¬O¼Æ¦r¡A¬O¤å¦r¡A©Ò¥H¾É­P«e­±1-16¦C¤j³¡¤À³£¦³¡A¦ý¬Oµ²ªG«o¼gµL¡C

Andy2483

¦^´_ 1# 198188

ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
«á¾ÇÂǦ¹©«½m²ß°}¦C»P¦r¨å,¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò

Option Explicit
Sub TEST()
Dim Arr, Brr, Crr, Z, i&, j%, R&, s%, T$, T2$, T3$
Set Z = CreateObject("Scripting.Dictionary")
Brr = Range(Sheets(1).[H12], Sheets(1).[A65536].End(3))
ReDim Crr(1 To UBound(Brr), 1 To 2)
For i = 1 To UBound(Brr)
   T3 = Trim(Brr(i, 3))
   If T3 = "" Then GoTo i01
   For j = 4 To 8
      T = T & "/" & Val(Brr(i, j))
   Next
   Z(T3 & T) = i
   T = ""
   Crr(i, 1) = "N"
i01: Next
For s = 2 To Sheets.Count
   Arr = Range(Sheets(s).[G13], Sheets(s).[A65536].End(3))
   For i = 1 To UBound(Arr)
      T2 = Trim(Arr(i, 2))
      If T2 = "" Then GoTo i02
      For j = 3 To 7
         T = T & "/" & Val(Arr(i, j))
      Next
      R = Z(T2 & T)
      If R <> 0 Then Crr(R, 1) = "Y": Crr(R, 2) = Sheets(s).Name & "/ " & i + 12 & "¦C"
      T = ""
i02: Next
Next
Sheets(1).[I12].Resize(UBound(Crr), 2) = Crr
End Sub

198188

¦^´_ 1# 198188


    ³o­Ó¥D­n¬O¥d¦b¤u§@ªíªº¤£©T©w¼Æ¶q¤Î¦WºÙ°ÝÃD¤W¡C