コピー1枚の空白のすべてのシートINCLD内のすべてのデータ

Question

私はすべてのシートにデータをコピーして別の1つのTOIグループアル内のデータを貼り付けますVBAのスクリップを持っている：

Sub Recap() 
Dim sh As Worksheet 
For Each sh In Worksheets 
    If sh.Name <> "Feuil1" Then 
     sh.[A7].Resize(sh.[A65536].End(xlUp).Row - 1, 13).Copy Destination:=Worksheets("Feuil1").[A65536].End(xlUp).Offset(1, 0) 
    End If 
Next sh 

私の問題があることですスクリプトはすべてのデータを取っていない、何とかどこかで停止する、私はいくつかのマージされたセルまたは空白の行があると仮定します。 誰かが私が何を変えなければならないのか考えていますか？

ありがとうございます！

Answer 1

[OK]を、少し研究した後、私はリサイズ機能にのRowSizeを計算するための別の方法が見つかりました：の

Istead：

sh.[A7].Resize(sh.[A65536].End(xlUp).Row - 1, 13).Copy 

を私はUsedRangeを使用して行を計算します機能：

sh.[A7].Resize(sh.UsedRange.Rows(sh.UsedRange.Rows.Count).Row - 1, 13).Copy 

最終VBAは完璧に動作します：

Sub Recap() 
Dim sh As Worksheet 
For Each sh In Worksheets 
    If sh.Name <> "Feuil1" Then 
     sh.[A7].Resize(sh.UsedRange.Rows(sh.UsedRange.Rows.Count).Row - 1, 13).Copy Destination:=Worksheets("Feuil1").[A65536].End(xlUp).Offset(1, 0) 
    End If 
Next sh