從多個工作表復制合並的行數據，其中填充了特定的列

Question

我正在基於填充的特定列將一系列數據從多個工作表復制到單個摘要表。

我正在使用以下鏈接上找到的代碼： https : //msdn.microsoft.com/zh-cn/library/cc793964(v= office.12).aspx，在“從多個字段中復制除列標題之外的所有數據”部分下工作表

盡管我一直在嘗試修改代碼，但它不會復制整個工作表，而是僅復制其中填充了“ N”列的行，因此它可以工作。

我禁用了將CopyRng設置為整個工作表的代碼行，並引入了一個For循環來檢查N列-我讓程序返回了所有工作表的N列中存在的所有值，但我需要返回整行這些實例。

這是我對相關部分的修改后的代碼：

        ' If source worksheet is not empty and if the last
        ' row >= StartRow, copy the range.
        If shLast > 0 And shLast >= StartRow Then

            'Set the range that you want to copy
            'Set CopyRng = sh.Range(sh.Rows(StartRow), sh.Rows(shLast))


                For Each cell In sh.Range("N4:N4")
                     If (cell.Value <> "") Then

                     Set CopyRng = '(trying to copy the entire row here..)

                    End If
                Next

關於我將如何設置CopyRng的問題，有人可以幫忙返回整行嗎？

謝謝

Answer 1

采用

Set CopyRng = cell.EntireRow

那應該選擇整行供您復制。 但是，如果您要進行大量復制和粘貼，我會有點膽怯，因為它會選擇許多不需要的單元格。 如果您知道列中數據的最大范圍，則最好使用

Set CopyRng = Worksheets(SHEET_YOU_WANT).Range("A" & cell.row & ":" & furthestColumn & cell.row)

因為這將花費較少的時間來完成。