《請教》關於字串抓取

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

1^# 跳轉到 »

發表於 2013-12-8 01:23 | 顯示全部帖子

回復 1# eric093

Sub ex()
For Each A In [A1].Resize([A65536].End(xlUp).Row)
S = Split(A, "-")
A.Offset(, 1) = S(0) & S(2)
Next
End Sub

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

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。