[µo°Ý] ¬d§ä¦¨«~¦^³f¼Æ¶q

shootingstar

¦p¹Ï©Ò¥Ü¡A§Æ±æ·í¥Î®Æ²M³æµ¥©ó­ì®Æ±ÄÁʮɥi¥H¦b²£¦¨«~¦^³f¼Æ±a¥X¥»´Á§¹¤u¼Æ¶q
¥Ñ©ó¥Î®Æ²M³æ¤£¤@©w¬O1:1¡A¦³¥i¯à¬O1:2©Î2:1³£¤£¤@©w¡A¦ý¨ä¦^³f¼Æ¶qªÖ©w¬O²£«~ªº¥»´Á§¹¤u¼Æ
¬O§_¦³¤½¦¡¥i¥H¤Þ¥Î¡AÁÂÁ¡I

¤U¸ü (55.91 KB)

2023-8-25 09:10

Andy2483

¦^´_ 1# shootingstar


    ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
«á¾ÇÂǦ¹©«½m²ßVBA,¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò
°ÝÃD_20230923.zip (17.96 KB)

¤U¸ü¦¸¼Æ: 1

2023-9-23 09:57

°õ¦æ«e:

¤U¸ü (122.18 KB)

2023-9-23 09:57

°õ¦æµ²ªG:

¤U¸ü (127.33 KB)

2023-9-23 09:57

Option Explicit
Sub TEST()
Dim Brr, Crr, i&, T$, T3$, T5$, T6$, TT$, S&
If [G65536].End(3).Row <> 1 Then Range([G2], [G65536].End(3)).ClearContents: Exit Sub
Brr = Range([G2], [A65536].End(3))
ReDim Crr(1 To UBound(Brr), 1 To 1)
For i = 1 To UBound(Brr)
   T = Trim(Brr(i, 1)): T3 = Trim(Brr(i, 3)): T5 = Trim(Brr(i, 5)): T6 = Trim(Brr(i, 6))
   If TT <> T Then TT = T: S = Val(T5)
   If T3 = T6 And T3 <> "" Then Crr(i, 1) = S
Next
[G2].Resize(UBound(Crr), 1) = Crr
Erase Brr, Crr
End Sub

hcm19522

H3=IF((C4=F4)*(C4<>""),LOOKUP(9^9,E$2:E3),"")