Excel 在数字格式vba之后更新单元格

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

Sub format_columns()

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

Selection.NumberFormat = "0%"

End Sub

格式已更改，但我必须单击进入或

f2，然后输入每个单元格以更改它，公式才能工作

我试过：

Application.EnableEvents=True

ScreenUpdate=True

如何将单元格自动更新为新格式？
粘贴文本前设置数字格式，或再次设置值以将其转换为数字：

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

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

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