標題: [發問] ALT+ENTER 分行的問題 [打印本頁]

---

作者: asoonla    時間: 2012-8-12 21:42     標題: ALT+ENTER 分行的問題

請問一下

我的儲存格有使用 ALT+ENTER 分隔

如何把此格打散後變成下面的形式

雖然GOOGLE到CHAT(10)可解決分隔,但是還是無法解決這個問題  

希望板大們可以指點一下Before       
"aa
bb
cc"        100分
dd        50分


After       
       
aa        100分
bb        100分
cc        100分
dd        50分

Before       
"aa
bb
cc"        100分
dd        50分


After       
       
aa        100分
bb        100分
cc        100分
dd        50分

[attach]12097[/attach]

---

作者: white945    時間: 2012-8-12 22:51

本帖最後由 white945 於 2012-8-12 22:53 編輯

回復 1# asoonla

1. Sub 分割()
   
2. Dim Ay(), A As Range, Ar As Variant, C As Variant, s&
   
3. For Each A In Selection
   
4.    Ar = Split(A, Chr(10))
   
5.    For Each C In Ar
   
6.       ReDim Preserve Ay(2, s)
   
7.       Ay(0, s) = C: Ay(1, s) = A.Offset(, 1).Value
   
8.       s = s + 1
   
9.    Next
   
10. Next
    
11. Selection(1).Resize(s, 2) = Application.Transpose(Ay)
    
12. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)