ここから本文です

以下のマクロの繰り返しを行いたいです

qwr********さん

2011/12/1011:59:52

以下のマクロの繰り返しを行いたいです

しかし、どうにもうまくいきません。どういったところに間違いがあるか分かりますか??

Sub Macro1()
'Dim i as long
For i = 0 To 1
' Macro1 Macro
'

'
Sheets("表2").Select
Range("408 + 10 * i:414 + 10 * i").Select
Selection.Copy
Sheets("並び替え").Select
Range("H3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("データ入力欄").Select
Range("MQ3218-i:NM3218-i").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("並び替え").Select
Range("C12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("最終").Select
Range("B3:K7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book1 (.xlsx").Activate
Sheets("表21").Select
Range("W398+10*i").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("3.xlsx").Activate
Range("B3:EU3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book1 (.xlsx").Activate
Sheets("並べ替え1").Select
Range("D3218-i").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub

閲覧数:
789
回答数:
1

違反報告

ベストアンサーに選ばれた回答

c_y********さん

2011/12/1012:33:55

ざっとみたところ、範囲指定の記述に問題がありますね。

変数を使って範囲を指定したい気持ちはわかるのですが、

Range("408 + 10 * i:414 + 10 * i")
Range("MQ3218-i:NM3218-i")
Range("W398+10*i")
Range("D3218-i")

これらはすべて意味がとおりません。マクロの記録をもとに書き換えられたようですが、どう変えればよいかは『 Range 』プロパティと『 Cells 』プロパティ、ついでに『 Copy 』メソッド、などをヘルプやサイトで研究してみてください。

がんばって!

質問した人からのコメント

2011/12/17 12:28:47

ありがとうございました!!

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる