ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

ª««~¤ÀÃþ

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


    ÁÂÁ½׾Â,ÁÂÁ«e½ú«ü¾É
«á¾Ç¥H «e½úªº¤è®×§ï¦¨¥H¤£¦P(¨ç¼Æ,¤èªk,»yªk....µ¥)¹F¨ì¬Û¦P¥Øªº,¾Ç²ß¨ì«Ü¦hª¾ÃÑ
¾Ç²ß¤è®×¦p¤U,½Ð«e½ú¦A«ü¾É

Option Explicit
Sub TEST_1()
Dim Brr, Crr, C, A, i&, R&, M&, j%, U%
[J:N].ClearContents
A = Split(Replace([I1], Left([I1], 1), "_" & Left([I1], 1)), "_")
U = UBound(A): If U = -1 Then Exit Sub
Brr = Range([F1], [B65536].End(3))
ReDim Crr(1 To UBound(Brr), 1 To U)
For j = 1 To U
   C = Application.Match(A(j), [B1:H1], 0)
   If IsError(C) Then Exit Sub Else R = 1
   Crr(R, j) = Brr(1, 1) & "(" & A(j) & ")"
   For i = 1 To UBound(Brr)
      If Val(Brr(i, C)) > 0 Then
         R = R + 1
         Crr(R, j) = Brr(i, 1)
      End If
   Next
   If R > M Then M = R
Next
If M > 0 Then [J1].Resize(M, U) = Crr
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

(¿é¤J½s¸¹12024) googleºô§}:https://hcm19522.blogspot.com/
google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD