Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

48957 / 76736

←次へ　｜　前へ→


	【32705】コピペについて

BBC - 05/12/21(水) 7:02 -


	引用なし

	パスワード

どうぞよろしくお願いします。似たような質問が以前にもありましたが、もう少し基本的なレベルで添削を頂ければと、ここに投稿した次第です。

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

よろしくお願いします。

0 hits

▼

【32705】コピペについて BBC 05/12/21(水) 7:02

≪