如何写代码更加优雅（如何写代码）

您好,今天张张来为大家解答以上的问题。如何写代码更加优雅，如何写代码相信很多小伙伴还不知道,现在让我们一起来看看吧！

1、先把Selection定义为Range变量就可以了 Sub xx() Dim MyRange As Range Set Mrange = Workbooks("Book1").Worksheets("Sheet1").Range("A1:C3") Workbooks("Book2").Activate For Each Cell In MyRange Cell.Value = 1 Next End Sub。

本文就为大家分享到这里，希望小伙伴们会喜欢。