返回列表 上一主題 發帖

[發問] 拆分

duck_simon
　暱稱: duck_simon

中學生Rank: 2

帖子
120 
主題
34 
精華
0 
積分
174 
點名
0  
作業系統
win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2010-5-4 
最後登錄
2024-11-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2022-4-21 10:39 | 只看該作者

[發問] 拆分

請教  先進:
如附件裡說明...拆分(合併的數據)
謝謝!

拆分.rar (8.09 KB)

拆分.rar (8.09 KB)

收藏 分享

hcm19522

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

熱烈參與勳章
2#
發表於 2022-4-21 11:33 | 只看該作者
=TRIM(MID(SUBSTITUTE($B7," ",REPT(" ",99)),COLUMN(A1)*99-98,99))
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
3#
發表於 2022-4-21 13:04 | 只看該作者
本帖最後由 samwang 於 2022-4-21 13:05 編輯

回復 1# duck_simon

Sub test()
a = Split([b7], " ")
[b11].Resize(1, UBound(a) + 1) = Application.Transpose(Application.Transpose(a))
End Sub

1.JPG (104.76 KB)

1.JPG

TOP

duck_simon
　暱稱: duck_simon

中學生Rank: 2

帖子
120 
主題
34 
精華
0 
積分
174 
點名
0  
作業系統
win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2010-5-4 
最後登錄
2024-11-20 
4#
發表於 2022-4-21 13:17 | 只看該作者
回復 3# samwang
回復 2# hcm19522

感謝2位先進...真棒..謝謝:'(

TOP

        靜思自在 : 閒人無樂趣，忙人無是非。
返回列表 上一主題