- 帖子
- 169
- 主題
- 41
- 精華
- 0
- 積分
- 219
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-7-31
- 最後登錄
- 2026-2-10
|
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
但試過做二個上述分別執行，方法可行，但是否能一次性執行或簡單方式呢？ |
|
發表於 2020-8-20 23:28
| 
