返回列表 上一主題 發帖

transfer string to number(小問題請教)

jj369963

帖子
147 
主題
46 
精華
0 
積分
205 
點名
0  
作業系統
windows xp 
軟體版本
office 2003 
閱讀權限
20 
性別
女 
註冊時間
2012-3-19 
最後登錄
2021-5-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-10-20 19:27 | 顯示全部帖子

transfer string to number(小問題請教)

本帖最後由 jj369963 於 2013-10-20 19:29 編輯

Dear 各位大大與前輩們：

如附檔，想將D欄到CO欄位轉成數字格式，目前用以下代碼試過成功，but 是要一個一個寫到CO欄嗎?
請問是否有其他方式?發問是進步的原動力，再煩請各位先輩指教，感謝
  1. Sub transfer()
  2. Dim RngHead As Range, DataCunt As Long, i As Long
  3. Set RngHead = Range("A2")
  4. DataCunt = Range("A65536").End(xlUp).Row
  5. Application.ScreenUpdating = False
  6. For i = RngHead.Row To DataCunt
  7.     If Val(Range("A" & i).Value) <> 0 Then
  8.    Range("A" & i).NumberFormatLocal = "G/通用格式"
  9.    Range("A" & i).Value = Val(Range("A" & i).Value)
  10.     End If
  11.     If Val(Range("F" & i).Value) <> 0 Then
  12.    Range("F" & i).NumberFormatLocal = "G/通用格式"
  13.    Range("F" & i).Value = Val(Range("F" & i).Value)
  14.     End If
  15.     If Val(Range("G" & i).Value) <> 0 Then
  16.    Range("G" & i).NumberFormatLocal = "G/通用格式"
  17.    Range("G" & i).Value = Val(Range("G" & i).Value)
  18.     End If
  19.     If Val(Range("H" & i).Value) <> 0 Then
  20.    Range("H" & i).NumberFormatLocal = "G/通用格式"
  21.    Range("H" & i).Value = Val(Range("G" & i).Value)
  22.     End If
  23.     If Val(Range("I" & i).Value) <> 0 Then
  24.    Range("I" & i).NumberFormatLocal = "G/通用格式"
  25.    Range("I" & i).Value = Val(Range("G" & i).Value)
  26.     End If
  27.     If Val(Range("J" & i).Value) <> 0 Then
  28.    Range("J" & i).NumberFormatLocal = "G/通用格式"
  29.    Range("J" & i).Value = Val(Range("G" & i).Value)
  30.     End If
  31. Next i
  32. End Sub
複製代碼
trasfer number.rar (221.16 KB)
收藏 分享

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題