《請教》關於字串抓取

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 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 三鍵輸入公式

靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。