|
どうぞよろしくお願いします。似たような質問が以前にもありましたが、もう少し基本的なレベルで添削を頂ければと、ここに投稿した次第です。
sheet 1のCX2からEU2まではコピーして、sheet2のB2からAY2にペーストするマクロを作ろうとしています。ペーストするときの注意は「値」のみの貼り付けです。
以下、初心者ながら作成してみました。しかしまったく思ったように機能してくれません。
高度な用語は理解していません。このレベルで添削が可能でしたら、どこがまちがっているのかご指摘頂ければ幸いです。
ちなみにsheet2は下記のような名前になっています。
Sub Macro6()
'
' Macro6 Macro
' マクロ記録日 : 2005/12/20 ユーザー名 :
'
For k = 1 To 5
ActiveWindow.SmallScroll ToRight:=99
Range(Cells(k + 1, 102), Cells(k + 1, 151)).Select
Selection.Copy
Sheets("変換後のデータ入力画面").Select
Range(Cells(k + 1, 2), Cells(k + 1, 51)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next k
Range("A1").Select
End Sub
よろしくお願いします。
|
|