大家好,乐乐来为大家解答以下的问题，关于如何写代码?，如何写代码这个很多人还不知道,那么今天让乐乐带着大家一起来看看吧！

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。

本文分享到此完毕，希望对您有所帮助。