データを別bookシートに移す
a1シート1のデータ1,2(データ1.5行G列~18行G列,~9000個、データ2.25行G列~38行G列,~9000個)をb1シート1,c1シート1に移行したいのですが、
a1シート1のデータ1,2は、9000個と9000個とします。
b1シート1,c1シート1は、16000個前後をできれば最大にしたいと考えています。
このとき移行したいb1シート1(5行G列~18行G列,~16000個)は最終列からでてしまいます。
出てしまう分をc1シート1(5行G列~18行G列,~2000個)に書き移したいと思っています。
分かりやすくと思い9000個と書きましたが、データにより数は、異なっています。
このとき、データ1とデータ2の連結は、空白行なしです。
b1シート,c1シートは、a1シートとは、別bookです。
こんなときのマクロを教えていただければと思い質問しました。
マクロ記録でしましたが、うまくできませんでした。
コードを教えていただけませんか。
よろしくお願いします。
m2010です。
a1シート1
/ABCDEFGHI-------------MHJ
1データ1
2------9000個
3
4
5------○○~~~~~○○
6------○○~~~~~○○
7------○○~~~~~○○
.
.
.
17-----○○~~~~~○○
18-----○○~~~~~○○
19
.
.
23データ2
24-----9000個
25-----○○~~~~~○○
26-----○○~~~~~○○
.
.
.
37-----○○~~~~~○○
38-----○○~~~~~○○
39
b1シート1
/ABCDDEFGHI-----------MHJ-------WQP
1データ1,データ2
2-------16000個
3
4
5-------○○~~~~~○○~~~○○
6-------○○~~~~~○○~~~○○
7-------○○~~~~~○○~~~○○
.
.
.
17------○○~~~~~○○~~~○○
18------○○~~~~~○○~~~○○
19
データ1,データ2の継ぎ目に空白なし。
マクロの記録では、
Sub Macro1()
'
' Macro1 Macro
'
'
Range("G5").Select
ActiveSheet.Paste
Range("MHJ5").Select
ActiveSheet.Paste
Range("F4").Select
End Sub
c1シート1
/ABCDEFGHI~~
1データ2の残り
2------2000個
3
4
5------○○~~○○
6------○○~~○○
7------○○~~○○
.
.
.
17-----○○~~○○
18-----○○~~○○
19
この質問は、難しいのでしょうか。
書き方がわるいのでしょうか。
よろしくお願いします。
お礼
早速のご回答ありがとうございます。RVセレクトのみとは少し残念です。それにRVセレクトってあんまりタマが多くないので、やっぱりそういう需要があまり無かったんでしょか。 URLも参考になりました。大きい荷物を積むという用途にはあまり向かないようですね。そういう人はバンを買って下さいってことですね。きっと。 なにはともあれ、RVセレクトを中心に物色してみます。 まことにありがとうございました。