- 帖子
- 262
- 主題
- 8
- 精華
- 0
- 積分
- 280
- 點名
- 16
- 作業系統
- xp
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2015-8-11
- 最後登錄
- 2024-3-28
|
- Sub zz()
- Dim a, b(), t, n&
- a = [a1].CurrentRegion
- ReDim b(1 To 1048576, 1 To 2)
- For i = 2 To UBound(a)
- t = Split(a(i, 2), Chr(10))
- For j = 0 To UBound(t)
- n = n + 1
- b(n, 1) = a(i, 1)
- b(n, 2) = t(j)
- Next
- Next
- [d1:e1] = a
- [d2].Resize(n, 2) = b
- End Sub
|
|
發表於 2021-2-3 13:30
| 