- 帖子
- 2798
- 主題
- 10
- 精華
- 0
- 積分
- 2854
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-4-20
|
本帖最後由 准提部林 於 2023-5-4 16:17 編輯
回復 5# killer77107
這哪是兩種需求
是直接將表一...序號不連續(空白--視為上一個序號同組), 變成合併的表吧!(一個序號一行, B欄合併+換列)
需求1>>直接產生合併
Sub 合併_01()
Dim Arr, i&, N&
Arr = Range([a1], [b65536].End(3))
For i = 2 To UBound(Arr)
If Arr(i, 1) <> "" Then
N = N + 1
Arr(N + 1, 1) = Arr(i, 1)
Arr(N + 1, 2) = Arr(i, 2)
Else
Arr(N + 1, 2) = Arr(N + 1, 2) & Chr(10) & Arr(i, 2)
End If
Next i
[e:f].ClearContents
[e1:f1].Resize(N + 1, 2) = Arr
End Sub |
|
發表於 2023-5-4 11:04
| 