返回列表 上一主題 發帖

取代,後,前面的0還保留(小問題請教),謝謝

取代,後,前面的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不見了,所以不是我要的

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

感謝 test_2.rar (16.26 KB)

回復 3# GBKEE


    Dear  GBKEE 與owen06 大大:

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

TOP

回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 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
複製代碼

TOP

        靜思自在 : 謊言像一朵盛開的鮮花,外表美麗,生命短暫。
返回列表 上一主題