Excel VBA - 创建新工作表的宏会导致奇怪的故障

Question

我创建了一个宏，它应该向我的 Excel 工作簿添加（比如 100 个）新工作表。这些新的工作表应该这样命名：1%,1.1%,1.2%,1.3%,...,9.9%,10%。

Sub AddWorkSheets()
Dim i As Double
For i = 0 To 10 Step 0.1
   Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = i & "%"
Next i
End Sub

当我运行此代码时，起初一切正常 - 它添加了如上所述命名的新工作表。 但它只在工作表5.9% 之前有效。在该工作表之后，所有其他人的名字都像5.99999999、6.09999999、7.2999999 等。 有没有人解释为什么会这样？

Answer 1

发生这种情况是因为您正在使用带有浮点数学的 for-next 循环，其中无法精确表示小数。

Tons 关于 SO 的解释，为什么会发生这种情况。下面是一种更正代码的方法。

Sub AddWorkSheets()
Dim i As Double
For i = 0 To 100 Step 1
  Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = round(i/10,1) & "%"
Next i
End Sub