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

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

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

高中生 Rank: 3 Rank: 3

帖子: 327
主題: 135
精華: 0
積分: 610
點名: 0
作業系統: WINDOWSXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 女
來自: 台北縣
註冊時間: 2010-8-5
最後登錄: 2021-2-3

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2021-2-3 11:48 | 只看該作者

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

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

活頁簿1.zip (6.62 KB)

樓主熱帖

收藏

joyce

Dreamweaver CC 資料庫網頁實例應用：零程式基礎輕鬆製作PHP資料庫網頁

中學生 Rank: 2

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

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

複製代碼

大學生 Rank: 4

帖子: 1083
主題: 0
精華: 0
積分: 1089
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2021-2-27

熱烈參與勳章

3^#

發表於 2021-2-3 14:09 | 只看該作者

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

隨意窩 "EXCEL迷" blog 或 http://blog.xuite.net/hcm19522/twblog[img][/img]
已收集7000篇 EXCEL函數

靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。

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