重要なお知らせ

「教えて! goo」は2025年9月17日(水)をもちまして、サービスを終了いたします。詳細はこちら>

【GOLF me!】初月無料お試し

Excelマクロの初心者です。
シート名が「1月」・・・「12月」のある(変数定義された)部分を
コピー貼付けしたいのですが、
Worksheet(N & "月").Select
の行でコンパイルエラーになります。
何がいけないのでしょうか、ご存知の方教えてください。

Sub
Dim Namae As String
Dim N As Integer
For N = 1 To 12

Worksheet(N & "月").Select
Cells.Find(What:=Namae, LookIn:=xlValues, LookAt:=xlWhole).Offset(1, 0).Resize(RowSize:=405, ColumnSize:=4).Select
Selection.Copy

Windows("別ファイル").Activate
Sheets("XXX").Cells(3, 1 + N * 5).Select
Selection.PasteSpecial Paste:=xlPasteValues,
  Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
Next
End Sub

A 回答 (1件)

Worksheets(N & "月").Select


「s」がないからでは?
    • good
    • 8
この回答へのお礼

ご回答ありがとうございました。
Nと& &と”月”の間にスペースを入れたらできました。

お礼日時:2008/02/19 07:30

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!