jsc0518

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 173
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-9-25

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2021-7-4 12:51 | 只看該作者

[發問] 如何拆分同一欄位內的資料

Dear all,
我在A1、A2欄位中都有輸入資料，資料都是用ALT+ENTER的方式作業
我想把A1、A2欄位內的資料拆分成一個資料一個欄位
想問各位先進，是否有哪個公式是可以使用的呢？
謝謝

EXCEL.rar (8.76 KB)

樓主熱帖

Just do it.

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

19^#

發表於 2023-5-12 10:10 | 只看該作者

謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列,學習方案如下,請各位前輩指教

執行前:

執行結果:

Option Explicit
Sub TEST()
Dim Brr, Crr, Z, N&, M&, i&
'↑宣告變數
Brr = Range([A1], [A65536].End(3))
'↑令Brr變數是二維陣列,以A欄儲存格值帶入
ReDim Crr(1 To UBound(Brr), 1 To 1000)
'↑宣告Crr變數是二為空陣列,縱向範圍同Brr陣列,橫向範圍從1 到1000
For i = 1 To UBound(Brr)
'↑設順迴圈
If Brr(i, 1) = "" Then GoTo i01
'↑如果陣列值是空的!就跳到標示 i01位置繼續執行
N = 0
'↑令N變數歸零
For Each Z In Split(Brr(i, 1), vbLf)
'↑設逐項迴圈!令Z變數是字串被跳行字元分割成的一維陣列子
   N = N + 1
   '↑令N變數累加 1
   If Z = "" Then GoTo z01
   '↑如果Z變數是空的!就跳到標示z01位置繼續執行
   If InStr(Z, "-") Then
   '↑如果Z變數裡有包含"-"字元?
      Crr(i, (N - 1) * 2 + 1) = Split(Z, "-")(1)
      '↑令Z變數將"-"字元右方的字串寫入 Crr陣列
      Else
         Crr(i, (N - 1) * 2 + 1) = Z
         '↑否則就令 Z變數字串寫入 Crr陣列
   End If
   If N > M Then M = N
   '↑探測Crr陣列橫向需要多少欄數
z01: Next
i01: Next
With [H1].Resize(UBound(Crr), (M - 1) * 2 + 1)
.EntireColumn.ClearContents
'↑將結果欄舊資料清除
.Value = Crr
'↑令Crr陣列值帶入儲存格
End With
Erase Brr, Crr
'↑釋放變數
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 173
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-9-25

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

18^#

發表於 2021-7-7 20:26 | 只看該作者

回復 17# ML089
Dear ML089,
晚上好！感謝您回復，學習囉！

Just do it.

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

17^#

發表於 2021-7-6 23:34 | 只看該作者

回復 13# jsc0518

回復 12# ML089
Dear ML089,
早安！感謝你的回覆與指導。

想與您請教一下
像一個欄位中放了很多資料(用ALT+ENTER的方式登錄資料)，公式是哪一個語法去判斷的
另外，當C1、D1放入公式後，又是哪一公式語法去判斷C1已經捉過的資料D1不會再重複捉過

=IFERROR(MID($A1,FIND("("&COLUMN(A1)&")",$A1)+6,6),"")

你的資料要分段是以 (1)......(2)......(3).....，所以用 COLUMN(A1)=1 右拉公式時就會變成 COLUMN(B1)=2 COLUMN(C1)=3，再用FIND找出位置
這公式只能適用於 1~9

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 173
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-9-25

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

16^#

發表於 2021-7-6 17:40 | 只看該作者

回復 15# samwang
Dear samwang,
太感謝你囉！幫我好多的忙，可以用、正常！！
謝謝你:) :)

Just do it.

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

15^#

發表於 2021-7-6 14:56 | 只看該作者

回復 14# jsc0518

請測試看看，謝謝

Sub test()
Dim Arr, a
Arr = Range([C1], [C65536].End(3))
For i = 2 To UBound(Arr)
a = Split(Arr(i, 1), Chr(10))
k = 0
For j = 0 To UBound(a)
Cells(i, 5 + j + k) = Split(a(j), "-")(1)
k = k + 1
Next
Next
End Sub

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 173
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-9-25

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

14^#

發表於 2021-7-6 14:45 | 只看該作者

回復 10# samwang
Dear samwang,
下午好，請教一下：若拆分的資料是跳格的，那語法要怎麼修改？

Just do it.

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 173
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-9-25

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

13^#

發表於 2021-7-6 11:46 | 只看該作者

回復 12# ML089
Dear ML089,
早安！感謝你的回覆與指導。

想與您請教一下
像一個欄位中放了很多資料(用ALT+ENTER的方式登錄資料)，公式是哪一個語法去判斷的
另外，當C1、D1放入公式後，又是哪一公式語法去判斷C1已經捉過的資料D1不會再重複捉過

=IFERROR(MID($A1,FIND("("&COLUMN(A1)&")",$A1)+6,6),"")

Just do it.

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

12^#

發表於 2021-7-6 09:19 | 只看該作者

本帖最後由 ML089 於 2021-7-6 09:34 編輯

回復 4# jsc0518
(1)KY-09030E
(2)KA-09032E
(3)WW-01234E
(4)WX-987852
當資料固定長度時可以簡化公式如下

C1公式 =IFERROR(MID($A1,FIND("("&COLUMN(A1)&")",$A1)+6,6),"")
改為
C2公式 =IFERROR(MID($A2,FIND("("&COLUMN(A2)&")",$A2)+6,6),"")

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 173
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-9-25

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

11^#

發表於 2021-7-5 21:02 | 只看該作者

回復 10# samwang
Dear samwang,
太感謝你的幫忙囉，解決我的困擾。
學習了

Just do it.

TOP