VBA中的range问题

发布网友发布时间：2023-05-13 01:51

共2个回答

热心网友时间：2024-03-28 00:57

有几个地方不足，改正如下；

Sub rng()
Dim rng As Range
Dim i%
i = 1
For Each rng In Worksheets("sheet1").Range("A1", Cells(Rows.Count, 1).End(xlUp))
Worksheets("sheet2").Range("A" & CStr(i)) = rng
i = i + 1
Next rng
End Sub

热心网友时间：2024-03-28 00:58

range不能选取未激活表的区域，要配合sheets.activate命令

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com