返回列表 上一主題 發帖

[發問] 如何判斷小數點顯示幾位

[發問] 如何判斷小數點顯示幾位

如檔案,儲存格格式如果為小數一位則B欄為10,下兩位B欄為100,其目的是去除小數點
我使用資料剖析也無法達成,1.28可以達成但1.00就無法成功了!
另外使用C1=A1*IF(ISERROR(FIND(".",A1)),1,CHOOSE(LEN(A1)-FIND(".",A1),10,100,1000))也是一樣,遇到小數點後面皆零就失效了
當初資料建立應該使用文字格式才可達成
可是資料非我建立且數據龐大,請問各位先進如何解決呢?

判斷小數點幾位.rar (1.57 KB)

YOYO

大大,問題不甚了解,A1--A5,是通用格式還是數值,清除小數點後成為文字或數字?

TOP

Sub yy()
For i = 1 To [a65536].End(3).Row
a = Cells(i, 1).Text
If InStr(a, ".") Then
k = Len(a) - InStr(a, ".")
k = IIf(Right(a, 1) = " ", k - 1, k)
Cells(i, 2) = Cells(i, 1) * Choose(k, 10, 100, 1000)
Else
Cells(i, 2) = Cells(i, 1) * 1
End If
Next
End Sub

TOP

        靜思自在 : 口說好話、心想好意、身行好事。
返回列表 上一主題