エクセルのマクロ

質問

エクセルのフォルダのシート１のセル(A１:Z1)から(A2：Z2)まで1行を何らかの（ボタンを設定して押す）操作で、コピーをして別のフォルダシートのセルA列（１から４０）までのあいている列に貼り付けられる方法はあろませんか？
誰かご教授願います

回答No.1

imogasi

質問の書き方があいまい。
こんな状態ではVBAコード作成はおぼつかない。
丸投げ丸写ししかない。
＞エクセルのフォルダの
フォルダはエクセルとは限らない。こんな書き方不正確。
書くなら、エクセルのブックだけ入っているフォルダの・・とか。
フォルダのファイルであるエクセルブックを見る・・とか。
＞エクセルのフォルダの
フォルダ名は決まったひとつか。プログラム的にどのようにして指定するのか。フォルダ名を受けとるのか。プログラムに埋め込む、INPUTBOX、Dialog、リストボックスとかいろいろ有るよ。後者は技術がいるが。
＞シート１
ブックの指定は？
＞シート名が「シート１」のシート
＞シート１のセル(A１:Z1)から(A2：Z2)まで1行を何らかの
それでは、２行ではないのですか。
＞フォルダシートの
これも名前等は、プログラムはどう受け取るのか。
＞ボタンを設定して押す
シートのコマンドボタンのクリックイベントの個とわかっているの？
ーー
場合によってはマクロの記録をとれそうだが。やってみましたか。
質問の内容が良く捉えられないので、あくまで或るケースでのこと。
２行目以下はマクロの記録から。
Sub Macro2()
Workbooks.Open "C:\Documents and Settings\XXX\デスクトップ\20090416名簿原本.xls"
Range("A1:D4").Select
Selection.Copy
Windows("Book1").Activate
ActiveSheet.Paste
End Sub