標題: 取代,後，前面的0還保留(小問題請教)，謝謝 [打印本頁]

---

作者: jj369963    時間: 2013-10-15 13:24     標題: 取代,後，前面的0還保留(小問題請教)，謝謝

Dear 大大們：

想請ㄧ個問題，如附檔
在F欄有很多數字，想將 , 去除，但保留前面的 0
如000,95  變成00095 (格式：數值)
寫了兩種語法

Sub Replace_comma()
With [F:F] '學號的欄位
.Replace ",", "", xlWhole '將,刪除
End With
End Sub


結果：沒反應

Sub Replace_comma()
Range("F:F").Select
Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

結果：成功，但前面的0不見了，所以不是我要的

所以來請益各位大大們
再煩請指教

感謝[attach]16335[/attach]

---

作者: owen06    時間: 2013-10-15 15:41

回復 1# jj369963

試看看這樣符合你的需求嗎？

1. Sub test()
   
2. For Each r In [f2:f48]
   
3. r.Value = "'" & r
   
4. Next
   
5. Range("F:F").Select
   
6. Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _
   
7.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
   
8.         ReplaceFormat:=False
   
9. End Sub

複製代碼

---

作者: GBKEE    時間: 2013-10-15 16:28

回復 1# jj369963

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Range
   
4.     For Each E In Range("f:f").SpecialCells(xlCellTypeConstants)
   
5.         E.Value = "'" & Replace(E, ",", "")
   
6.     Next
   
7. End Sub

複製代碼

---

作者: jj369963    時間: 2013-10-17 10:29

回復 3# GBKEE


    Dear  GBKEE 與owen06 大大：

        感謝您們的回應，謝謝。語法都有成功，目前還在努力看懂語法中(近日才接觸vba)，不過非常感謝您們用心的回覆。
          有人可以ㄧ起討論真好，再次感謝。

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)