アプリ版:「スタンプのみでお礼する」機能のリリースについて

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で質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています