[EXCEL] シートを統合するマクロ

質問

下記は全てのシートを"ALL"という名前のシートに統合するマクロのようですが、"ALL"というシートの一番上 一行が
空きになってしまいます。1行目から使用したいのですが、
どこをどう書き換えれば良いのでしょうか？

Sub copy()
s0 = ActiveSheet.Name
Sheets.Add.Name = "ALL"
s1 = ActiveSheet.Name
For Each mySH In Sheets
If mySH.Name <> s0 Then
If mySH.Name <> s1 Then
myE = Range("A65536").End(xlUp).Row + 1
myE2 = mySH.Range("A65536").End(xlUp).Row
mySH.Range("1:" & myE2).copy Range(myE & ":" & myE)
End If
End If
Next
End Sub

回答No.1

bin-chan · ベストアンサー

２回続くIF文の次の行
myE = Range("A65536").End(xlUp).Row + 1
の + 1　をとりのぞく、でよさそうに思いますが、試験してません。

補足

この方法を試したところ、"ALL"の１行目から使用されるようになりましたが、どういうわけか、6番目のシートの最終行が抜けて統合されてしまいます。シートの位置を移動しても、6番目のシートの最終行が抜けて統合されてしまいます。バグですかね？
Windows Vista HOME と Office2007 です。