取字串疑問 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 取字串疑問

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

[發問] 取字串疑問

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 »

發表於 2016-8-18 10:30 | 顯示全部帖子

回復 3# Michelle-W
試試看！

Sub Ex()
Dim rng As Range
For Each rng In Range([A2], [A2].End(xlDown))
rng.Offset(, 5) = Split(Split(rng.Value & "//", "//")(1) & "/", "/")(0)
Next
End Sub

複製代碼

靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。

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