transfer string to number(小問題請教)

1^# 跳轉到 »

發表於 2013-10-20 20:51 | 顯示全部帖子

Dear 各位大大與前輩們：

如附檔，想將D欄到CO欄位轉成數字格式，目前用以下代碼試過成功，but 是要一個 ...
jj369963 發表於 2013-10-20 19:27

關鍵是善用 Union 與 For Each 函數 :

Sub tf()
Dim rTar As Range, RngHead As Range
Dim DataCunt As Long
Dim vTar
Set RngHead = Range("A2")
DataCunt = Range("A65536").End(xlUp).Row
Set rTar = Union(Range(RngHead.Address & ":A" & DataCunt), Range("F" & RngHead.Row & ":J" & DataCunt))
For Each vTar In rTar
With vTar
If .Value <> 0 Then
.NumberFormatLocal = "G/通用格式"
.Value = Val(.Value)
End If
End With
Next vTar
End Sub

複製代碼

trasfer number-a.zip (404.62 KB)

靜思自在 : 人生沒有所有權，只有生命的使用權。