- ©«¤l
- 169
- ¥DÃD
- 41
- ºëµØ
- 0
- ¿n¤À
- 219
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-7-31
- ³Ì«áµn¿ý
- 2023-9-15
|
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Ó¤Wz¤À§O°õ¦æ¡A¤èªk¥i¦æ¡A¦ý¬O§_¯à¤@¦¸©Ê°õ¦æ©Î²³æ¤è¦¡©O¡H |
|