返回列表 上一主題 發帖

儲存格內有斷行如何逐列呈現

leiru

帖子
334 
主題
139 
精華
0 
積分
621 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
女 
來自
台北縣 
註冊時間
2010-8-5 
最後登錄
2022-11-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2021-2-3 11:48 | 只看該作者

儲存格內有斷行如何逐列呈現

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

活頁簿1.zip (6.62 KB)

收藏 分享
joyce

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
17  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2024-11-19 

2016猴年全勤獎章
2#
發表於 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
複製代碼

TOP

hcm19522

帖子
1387 
主題
4 
精華
0 
積分
1397 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-11-22 

熱烈參與勳章
3#
發表於 2021-2-3 14:09 | 只看該作者
https://blog.xuite.net/hcm19522/twblog/589597040
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題