標題: 儲存格內有斷行如何逐列呈現 [打印本頁]

---

作者: leiru    時間: 2021-2-3 11:48     標題: 儲存格內有斷行如何逐列呈現

請問如何將a,b欄資料轉換成d,e欄，且ｅ欄設定成文字格式

---

作者: ikboy    時間: 2021-2-3 13:30

1. Sub zz()
   
2. Dim a, b(), t, n&
   
3. a = [a1].CurrentRegion
   
4. ReDim b(1 To 1048576, 1 To 2)
   
5. For i = 2 To UBound(a)
   
6.     t = Split(a(i, 2), Chr(10))
   
7.     For j = 0 To UBound(t)
   
8.         n = n + 1
   
9.         b(n, 1) = a(i, 1)
   
10.         b(n, 2) = t(j)
    
11.     Next
    
12. Next
    
13. [d1:e1] = a
    
14. [d2].Resize(n, 2) = b
    
15. End Sub

複製代碼

---

作者: hcm19522    時間: 2021-2-3 14:09

https://blog.xuite.net/hcm19522/twblog/589597040

---

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