人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excelで、シートaのA1とB1の値を次のシートbのC1とD1にコピーし
同じく、シートaのA2とB2の値を、シートbのE1とF1にコピー、
これを連続して、マクロ(VBA)でする方法は?


●質問者: mitsueda
●カテゴリ:コンピュータ 科学・統計資料
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● sasada
●150ポイント ベストアンサー

下記のマクロで如何でしょう。

Sub Macro1()
'
' Macro1 Macro
'
 Sheets("シートa").Select
 Range("A1:B1").Select
 Selection.Copy
 Sheets("シートb").Select
 Range("C1").Select
 ActiveSheet.Paste
 Sheets("シートa").Select
 Range("A2:B2").Select
 Application.CutCopyMode = False
 Selection.Copy
 Sheets("シートb").Select
 Range("E1").Select
 ActiveSheet.Paste
End Sub

sasadaさんのコメント
あぁ、勘違いしてました。 シートaのA列とB列に値が有る限り、シートbの1行目に値を並べれば良いんですね。 それだと、たとえば、以下のマクロになります^^ >|| Sub Macro1() ' ' Macro1 Macro ' Dim I, J I = 1 J = 3 Sheets("シートa").Select Do Until IsEmpty(Cells(I, 1)) Sheets("シートa").Select Cells(I, 1).Select Selection.Copy Sheets("シートb").Select Cells(1, J).Select ActiveSheet.Paste Sheets("シートa").Select Cells(I, 2).Select Selection.Copy Sheets("シートb").Select Cells(1, J + 1).Select ActiveSheet.Paste Sheets("シートa").Select I = I + 1 J = J + 2 Loop End Sub ||<

2 ● かずきち。
●50ポイント

マクロ組む必要ありますかね?wエクセルのセルの右下をひっぱるとコピーできるのですが、こっちのほうが手っ取り早いですよ。

関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ