麻辣家族討論版版 » Excelㄧ般區 » 儲存格內有斷行如何逐列呈現

返回列表下一主題上一主題發帖

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

高中生 Rank: 3 Rank: 3

帖子: 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

大學生 Rank: 4

帖子: 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/

中學生 Rank: 2

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

2016猴年全勤獎章

2^#

發表於 2021-2-3 13:30 | 只看該作者

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

複製代碼

靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。

返回列表下一主題上一主題