- 帖子
- 23
- 主題
- 0
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- 20xx
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-8-11
- 最後登錄
- 2012-8-28
|
2#
發表於 2012-8-12 22:51
| 只看該作者
本帖最後由 white945 於 2012-8-12 22:53 編輯
回復 1# asoonla - Sub 分割()
- Dim Ay(), A As Range, Ar As Variant, C As Variant, s&
- For Each A In Selection
- Ar = Split(A, Chr(10))
- For Each C In Ar
- ReDim Preserve Ay(2, s)
- Ay(0, s) = C: Ay(1, s) = A.Offset(, 1).Value
- s = s + 1
- Next
- Next
- Selection(1).Resize(s, 2) = Application.Transpose(Ay)
- End Sub
|
|
