跨工作簿粘贴

    xiaoxiao2025-05-26  11

    Sub t() Dim ws As Worksheet Dim rng As Range Dim rng2 As Range For Each ws In Worksheets     If ws.Name <> Sheet1.Name Then         Set rng = ws.[a1]         Set rng = ws.Range("a2", ws.[b1].End(xlDown))         Set rng2 = Cells(1, 1).End(xlDown)(2, 1)         rng.Copy rng2         rng2(1, 3).Resize(rng.Row, 1) = ws.Name     End If Next ws End Sub
    转载请注明原文地址: https://ju.6miu.com/read-1299283.html
    最新回复(0)