- ©«¤l
- 2798
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2854
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-4-20
|
¦^´_ 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
'========================= |
|