Question

VBA如何一键将多个sheet中指定区域的公式转换成数字结果

For Each Rng In Range("B8:P" & [O65536].End(xlUp).Row)
Rng.Value = [Rng]
Next
上面网上找的代码，可以将当前表中的公式转换成数字结果，但我一个工作薄中有Sheets( "1月")至Sheets( "12月")和Sheets( "全年")，请问如何一键将这些工作表B8至P最后一行转换？谢谢！

Answer 1

Sub Macro1()
For i = 1 To 12
    For Each Rng In Sheets(i & "月").Range("B8:P" & [O65536].End(xlUp).Row)
 正蔽       Rng.Value = [Rng]
    Next Rng
Next i
    For Each Rng In Sheets("全年").Range("B8:P" &举源州 [O65536].End(xlUp).Row)
  裂御      Rng.Value = [Rng]
    Next Rng

End Sub