EXCEL VBA 分割儲存格

excel vba

pi4da4 2017-12-08 22:49:40 ‧ 8187 瀏覽

分享至

參考範例圖片
比較好描述

我希望把這個儲存格有---------------------------------------的部分切割成兩個
想要學習怎麼用VBA來操作

謝謝~

小魚 iT邦大師 1 級 ‧ 2017-12-09 13:02:05 檢舉

不能用資料剖析嗎?

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2017-12-11 07:56:43

最佳解答

Sub Test()
    '取得原本的值
    a1_old = Range("A1").Value
    b1_old = Range("B1").Value
    
    '計算出新的值
    a1_new = a1_old
    a2_new = a1_old
    b1_new = Left(b1_old, InStr(1, b1_old, "----------") - 2)
    b2_new = Mid(b1_old, InStr(1, b1_old, "----------") + 10)
    
    '將新的值放進儲存格
    Range("A1").Value = a1_new
    Range("A2").Value = a2_new
    Range("B1").Value = b1_new
    Range("B2").Value = b2_new
End Sub