Excel的VBA複印多張紙到不工作

一個片我有以下VBA：數據是所有文本，行A - 在每片Ĵ與列標題是相同數據是SQL查詢所有與「頂部1000」 4張（sheet1，sheet2，sheet3，Master）Excel的VBA複印多張紙到不工作

片1：100行片2：34行片3：900行站長：合併從3張

問題數據：Sheet3只拷貝84行指定但是，向其他工作表添加更多行將複製到主工具。只有sheet3不會複製超過84行。

：步驟2 '步驟1更新清除主之前'：通過區域紙張環路

子合併（）

Dim cell   As Range 
Dim wks    As Worksheet 

Sheets("Master").Range("A2:Z65536").ClearContents 

For Each wks In ThisWorkbook.Worksheets 
    If wks.Name <> "Master" And wks.Range("A2") <> "" Then 

     For Each cell In wks.Range(wks.Range("A2"), wks.Range("A2").End(xlDown)) 
      cell.EntireRow.Copy Destination:=Worksheets("Master").Range("A65536").End(xlUp).Offset(1, 0) 
     Next cell 
    End If 
Next wks

結束子

由於

來源

2010-07-20 EKet

是對始於Range(A2)的數據始終填充？

對於每個單元格wks.Range(wks.Range("A2"), wks.Range("A2").End(xlDown))將從A2開始，並轉到空白/空單元格之前的最後一個填充的單元格。

來源

2010-07-20 17:26:15 Cynicszm

我對vba有點新，但是如果我理解正確的範圍（「A2」）從不爲空或空。總是有來自A2：Jxxxx的數據，這些數據需要填充到主數據庫中。謝謝 – EKet 2010-07-20 17:28:38

我會檢查工作表3上的數據，以確保範圍A2向前始終填充，看不到其他任何可能導致您vba問題的問題......尤其是如果它適用於其他工作表 – Cynicszm 2010-07-20 17:32:11

這就是有趣的是，sheet3由A2：J903填充。我想也許有一個大小問題的地方對象或工作表對象不能超過一定數量的行。但顯然這是愚蠢的，其他表單與更多的數據工作正常。我想這是其中的一個謎團，因爲在這一點上我想不出任何其他的東西。感謝您的幫助。 – EKet 2010-07-20 17:40:21

Excel的VBA複印多張紙到不工作

回答

相關問題