有人教我另一招(VBA),給您參考:
Sub abc()
Dim s As Worksheet
Set s = ActiveSheet
Dim i As Integer
Dim k As String
Set w = ActiveWorkbook
For i = 3 To 27
'以下設定數字格式小數兩位
s.Range("K" & i).NumberFormatLocal = "0.00_ "
s.Range("L" & i).NumberFormatLocal = "0.00_ "
s.Range("M" & i).NumberFormatLocal = "0.00_ "
'重新給值
k = s.Range("K" & i).Value
s.Range("K" & i).Value = Val(k)
k = s.Range("L" & i).Value
s.Range("L" & i).Value = Val(k)
Next i
MsgBox "處理OK"
End Sub
發表於 2013-12-1 13:39
| 
