- 帖子
- 2808
- 主題
- 10
- 精華
- 0
- 積分
- 2864
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-5-6
|
- Sub TEST()
- Dim Arr, D, T$, R&, C&
- Arr = Range("A2:F" & [A65536].End(3).Row)
- Set D = CreateObject("Scripting.Dictionary")
- For C = 1 To UBound(Arr, 2) Step 2
- For R = 1 To UBound(Arr)
- T = Arr(R, C): If T = "" Then GoTo 101
- If C = 1 Then D(T) = R: GoTo 101
- Arr(R, C) = "": Arr(R, C + 1) = ""
- Arr(D(T), C) = T
- Arr(D(T), C + 1) = Arr(D(T), 2)
- 101: Next
- Next
- [期望結果示意!A3:F3].Resize(UBound(Arr)) = Arr
- End Sub
|
|
發表於 2016-11-12 10:13
| 