|
たびたび申し訳ありませんが、
また教えていただけ無いでしょうか?
A列B列、1列目がともに縦、横の項目となっている表があり、
C2からデータが入っています。
それを、C2からC最後の行までをコピーし、
sheet1のA列最後の行+1のところに貼り付ける。
次は、横のD列をコピーし、
sheet1のA列最後の行+1のところに貼り付ける。
と、データがなくなるまでコピー&ペーストをしたいのですが、
わたしの力では、C列をコピーして、
sheet1のA列最後の行+1のところに貼り付ける。
というところまでしかできませんでした。
こちらで教えて頂いた、
Range("IV1").End(xltoLeft).Offset(0,1)
を組み合わせたいのですが、どうもやり方がわかりません。
また、Book内にはシートが複数あり、
できればBook内の全てのシートの内容を
sheet1に貼り付けしたいのです。
力不足の為、下のようなモジュールしか書けませんでした。
どなたか、教えていただけないでしょうか?
また、1行目の項目は、1,1,2,2,3,3,と同じ数字が
2つ並んでいます。
この区別をsheet1のB列につけたいのですが、
何か方法は無いでしょうか?
重ね重ね申し訳ないのですが
よろしくお願いします。
Sub Macro1()
Dim i As Long
i = Sheets("Sheet1").Range("A65536").End(xlUp).Row
Range("C2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet1").Select
Range("A" & i).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
|
|