excel 将区域复制到另一工作表的最后一行

bn31dyow 于 2023-01-03 发布在其他

关注(0)|答案(1)|浏览(181)

在工作表3（c6：h6）中，数据将在3分钟内更新。
我需要将此数据复制到另一个sheet4（b6：G6）的最后一行。
“范围（“b1”）.结束（xlDown）.偏移（1，0）“中出现错误。选择”

Sub test()

Workbooks("nifty1.xlsm").Activate
Sheet3.Select
Range("c6:h6").Copy

Sheet4.Select
Range("b1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Application.OnTime Now + TimeValue("00:03:10"), "test"
End Sub

excel

来源：https://stackoverflow.com/questions/73934166/copy-range-to-another-sheet-last-row

1条答案

按热度按时间

ffx8fchx1#

您可以尝试：

With Workbooks("nifty1.xlsm")
    .Sheet3.Range("c6:h6").Copy
    .Sheet4.Range("B" & .Sheet4.Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End With

Application.CutCopyMode = False

Application.OnTime Now + TimeValue("00:03:10"), "test"

请读How to avoid using Select in Excel VBA

赞(0）回复(0）举报 2023-01-03

我来回答

excel 将区域复制到另一工作表的最后一行

1条答案

相关问题

热门标签

最新问答