エクセル 複数シートを一つのシートにまとめるマクロについて

質問

エクセル　複数シートを一つのシートにまとめるマクロについて

こんにちは　いつもお世話になっています
あるサイトから上記の目的のマクロを参考にして試したんですが、所有してるデスクトップ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
引用終わり

よろしくお願いします

回答No.1

jcctaira · ベストアンサー

多分ノートPCでは「変数の定義をしないとエラーにする」命令（Option Explicit）が自動的に挿入されるようになっていると思います。
方法は２つ。
1.Option Explicit を削除する
2.k を　変数宣言する。
　Dim k As Long

できれば2.の方をおすすめします。

お礼

jcctaira　様　ありがとうございました。
お蔭様で解決しました。
具体的に変数宣言を教えていただき大変勉強になりました。
簡単で恐縮ですが、お礼申し上げます。

回答No.2

nag0720

VBAのメニューのツール：オプションに「変数の宣言を強制する」というのがあります。

ノートＰＣのほうのエクセルではこれにチェックマークが付いているのでしょう。

お礼

nag0720 様　ありがとうございました。
お蔭様で解決しました。
御丁寧に説明していただき助かりました。
簡単で恐縮ですが、お礼申し上げます。