エクセル 複数シートを一つのシートにまとめるマクロについて
エクセル 複数シートを一つのシートにまとめるマクロについて
こんにちは いつもお世話になっています
あるサイトから上記の目的のマクロを参考にして試したんですが、所有してるデスクトップPCでは成功するのに、ノートPCでは次のエラーが出ます。
「コンパイルエラー 変数が定義されていません」そして、以下に載せたコードの「k = 1」の部分が青い背景色になります。とりあえず、デスクトップでできるので間に合うのですが、ノートPCでのトラブル理由を今後のために勉強したいのです。理由を教えてください。
エクセル2003 SP3
ノートPCは工人舎のモバイルSA1F0
参考にさせていただいたサイトは「エクセル 複数シートを一つに集約」
http://okwave.jp/qa/q1608016.html?order=DESC&by=datetime
コード引用
集約用にSheet3を確保します・
Sheet3以外の全シートを集約します。
Sub test07()
Dim sh3 As Worksheet
Dim sh As Worksheet
Set sh3 = Worksheets("Sheet3")
k = 1
For Each sh In ActiveWorkbook.Worksheets
If sh.Name <> "Sheet3" Then
MsgBox sh.Name
sh.UsedRange.Copy
sh3.Cells(k, "A").Select
sh3.Paste
k = k + sh.UsedRange.Rows.Count
End If
Next
End Sub
引用終わり
よろしくお願いします
お礼