ª««~¤ÀÃþ

sillykin

¬O§_¯à¨Ìª««~¤U¥h¤ÀÃþ?

hcm19522

(¿é¤J½s¸¹12024) googleºô§}:https://hcm19522.blogspot.com/

Andy2483

¦^´_ 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

sillykin

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


  ·PÁ¤j¤jªº¦^ÂÐ...
­ì¨ÓÁÙ¦³³oªº¥Îªk

­ã´£³¡ªL

¦^´_ 8# sillykin

instr ¤Î ¤½¦¡ªº find ¥ÎªkÃþ¦ü

msgbox instr("ACFT", "A") '--- =1
msgbox instr("_ACFT", "A") '--- =2
msgbox instr("_BACT", "")  '--- = 1

¥[ "_", ÁקKªÅ¦r²Åªð¦^1ªº»~§P

sillykin

ÁÂÁ¤j¤jªº¨ó§U
¦ý³o¥y»yªk¤£¤ÓÀ´
For C = 2 To UBound(Arr, 2)
    If InStr("_" & T, Arr(1, C)) < 2 Then GoTo c01
    Cn = Cn + 1: Rn = 0

­ã´£³¡ªL

¦^´_ 6# sillykin
Sub TEST()
Dim Arr, Brr, R&, Rn&, C&, Cn&, T$, N&
[J2:N6000].ClearContents
T = [i1]: If T = "" Then Exit Sub
Arr = Range([F1], [B65536].End(xlUp))
ReDim Brr(1 To UBound(Arr), 1 To UBound(Arr, 2))
For C = 2 To UBound(Arr, 2)
    If InStr("_" & T, Arr(1, C)) < 2 Then GoTo c01
    Cn = Cn + 1: Rn = 0
For R = 2 To UBound(Arr)
    If Val(Arr(R, C)) > 0 Then
       Rn = Rn + 1: Brr(Rn, Cn) = Arr(R, 1)
       If Rn > N Then N = Rn
    End If
Next R
c01: Next C
If N > 0 Then [j2].Resize(N, Cn) = Brr
End Sub


'=========================

sillykin

Sub TEST()
Dim Arr, R&, C&, T$, N&
[J2:J6000].ClearContents
T = [i1]: If T = "" Then Exit Sub
Arr = Range([F1], [B65536].End(xlUp))
For C = 2 To UBound(Arr, 2)
    If Arr(1, C) <> T Then GoTo c01
For R = 2 To UBound(Arr)
    If Val(Arr(R, C)) > 0 Then N = N + 1: Arr(N, 1) = Arr(R, 1)
Next R
c01: Next C
If N > 0 Then [j2].Resize(N) = Arr
End Sub
¦ý¸Õ¹L°µ¤G­Ó¤W­z¤À§O°õ¦æ¡A¤èªk¥i¦æ¡A¦ý¬O§_¯à¤@¦¸©Ê°õ¦æ©Î²³æ¤è¦¡©O¡H

sillykin

¦^´_ 4# ­ã´£³¡ªL
·PÁ¤j¤jªº¦^ÂÐ...
¦ýÁÙ¦³¤@­Ó¤p°ÝÃD,¬O§_¯àÀ°¸Ñ¨M,¦pªG­n¥X²{¤GºØ,¬O§_¯à¨Ì¿ï¾ÜºØÃþ,¦C¥Xª««~¦WºÙ

­ã´£³¡ªL

Sub TEST()
Dim Arr, R&, C&, T$, N&
[J2:J6000].ClearContents
T = [i1]: If T = "" Then Exit Sub
Arr = Range([F1], [B65536].End(xlUp))
For C = 2 To UBound(Arr, 2)
    If Arr(1, C) <> T Then GoTo c01
For R = 2 To UBound(Arr)
    If Val(Arr(R, C)) > 0 Then N = N + 1: Arr(N, 1) = Arr(R, 1)
Next R
c01: Next C
If N > 0 Then [j2].Resize(N) = Arr
End Sub


'=============================