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

ª««~¤ÀÃþ

ª««~¤ÀÃþ

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

ª««~.rar (7.6 KB)

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

ª««~-109.8.31.rar (8.42 KB)

TOP

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

TOP

ÁÂÁ¤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

TOP

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


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

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD