为什么此循环不会每次都执行所有步骤?

时间:2020-02-19 22:14:03

标签: excel vba

我一直在编写宏,以根据客户的偏好设置电子表格的格式。我遇到的宏问题是将百分比列的格式设置为百分数,小数点后一位。在下面的代码中,我确定我的%列将在哪里(它们在我正在处理的文件中以'Cov'开头),并且一旦识别出该列,宏就会遍历该列中的每一行并输入%公式,直到到达最后一行。

一切都按预期工作,除了获得%公式的最后两(2)列不会更新以显示小数点后一位。谁能提供为什么最后两列与循环中其他列的更新不一致的见解?

谢谢!

For C = 24 To LastColumn + 2
    If .Cells(12, C) = "Cov" Then
    For i = 13 To LastRow
        Set formatCell = .Range(.Cells(i, C), .Cells(i, C))
        formatCell.Value = "=IFERROR(" & .Cells(i, C - 1).Address & "/" & .Cells(i, 14).Address & "*100,0)"
        formatCell.NumberFormat = "0.0"
    Next i
    End If
Next C

0 个答案:

没有答案