在NumberFormat vba之后更新单元格

Question

我有一个子例程，可以按列更改单元格的格式

Sub format_columns()

Application.Union(Columns("i"), Columns("k"), Columns("m")).Select

Selection.NumberFormat = "0%"

End Sub

格式已更改，但是我必须单击进入或f2 and enter每个单元格才能对其进行更改，以便公式起作用。

我尝试过：

Application.EnableEvents = True

ScreenUpdating = True

如何将单元格自动更新为新格式？

Answer 1

在粘贴文本之前设置数字格式，或再次设置值以将其转换为数字：

Sub format_columns()
    For Each col In Range("I:I,K:K,M:M").Columns
        col.NumberFormat = "0%"
        col.Value = r.Value
    Next
End Sub