Excelで､ｼｰﾄaのA1とB1の値を次のｼｰﾄbのC1とD1にｺﾋﾟｰし同じく､ｼｰﾄaのA2とB2の値を､ｼｰﾄbのE1とF1にｺﾋﾟｰ､これを連続して､ﾏｸ…

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

Excelで､ｼｰﾄaのA1とB1の値を次のｼｰﾄbのC1とD1にｺﾋﾟｰし
同じく､ｼｰﾄaのA2とB2の値を､ｼｰﾄbのE1とF1にｺﾋﾟｰ､
これを連続して､ﾏｸﾛ(VBA)でする方法は？

●質問者: mitsueda
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀ科学･統計資料
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

▽1 ● なむうぉんす
●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

なむうぉんすさんのｺﾒﾝﾄ
あぁ､勘違いしてました｡ｼｰﾄ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ｴｸｾﾙのｾﾙの右下をひっぱるとｺﾋﾟｰできるのですが､こっちのほうが手っ取り早いですよ｡