将数据从多张纸复制到一张纸中答案

【问题标题】：Copying data from multiple sheets into 1 sheet将数据从多张纸复制到一张纸中
【发布时间】：2020-03-29 07:11:03
【问题描述】：

我正在尝试将特定单元格（I106 到 I160）从多张纸复制到第一张纸中。每个都应在新列中彼此相邻复制。但是，它会在 1 列中复制彼此下方的数据。

提前致谢

Sub CopyIt()

    Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        If ws.name <> "All Data" Then
            ws.Range("I106:I160").Copy
            Sheets("All Data").Cells(Rows.Count, "B").End(xlUp).Offset(1).PasteSpecial xlPasteValues
        End If
    Next
    Application.ScreenUpdating = True
End Sub

【问题讨论】：

它按照您的要求执行... 数据应该去哪里？在固定范围内，还是有现有数据需要将复制的数据粘贴到其下方？

标签： excel vba

【解决方案1】：

试试这个：

Sub CopyIt()

    Dim ws As Worksheet, c As Range, wsData As Worksheet, wb As WorkBook
    Set wb = ActiveWorkbook
    Set wsData = wb.Sheets("All Data")
    Application.ScreenUpdating = False
    Set c = wsData.Cells(Rows.Count, "B").End(xlUp).Offset(1) 'start here
    For Each ws In wb.Worksheets
        If ws.name <> wsData.Name Then
            With ws.Range("I106:I160")
                c.Resize(.Rows.Count, .Columns.Count).Value = .Value
            End With
            Set c = c.offset(0, 1)'next column 
        End If
    Next
    Application.ScreenUpdating = True
End Sub

【讨论】：