如何用VBA取代儲存格中的特定字元

在之前的網誌中有為您討論到，如何利用Excel中的Left 和Right函數，截取身份證字號中的姓別數字代號，獨立成另一個性別欄位。那假設我們想要置換儲存格中的特定字元，如日期格式寫做61.09.20，要修改為61/09/20，才能符合Excel中的格式標準時？要怎麼處理呢？

在這裡，我們先討論如何利用VBA程式，解決這個問題。

假設我們在b2儲存格中放置了資料61.09.20。若我們要用VBA將它改為61/09/20。我們可以先寫一個函式，然後，將儲存格B2設定為一個變數r1。

接著，利用VBA中的RIGHT和LEFT函數，取出要置換的字元”.”，並將它指定為r2變數。最後，我們利用replace函數，將.字元替換為/字元，並將值指定給目前作用中的儲存格。

當然，如果你的儲存格中，這種資料實在太多的話，你可以再搭其它的語法，批次置換資料。

 

Sub rep()

r1 = Range("b2")

r2 = Right(Left(r1, 3), 1)

r3 = "/"

ActiveCell.Value = Replace(r1, r2, r3)

 

End Sub