Excel VBA 貼付先のコントロール？

質問

御世話になります。

色々調べて下記の構文が出来たのですが、あと一歩が足りません。

製造シートのＡ列のデータを抽出シートのRtmが代入されたセルの上から7行目以下に貼付たいのです。

宜しくお願い致します。

Sub sappri()

Dim nTotal, i
Dim Rtm As Variant
nTotal = Sheets("製造データ").Range("A1").End(xlDown).Row
Rtm = Sheets("製造データ").Range("J1")
With Sheets("抽出")

For i = 1 To nTotal
.Cells(i * 3 - 2, Rtm).Value = Sheets("製造データ").Cells(i, 1).Value

Next i
End With
End Sub

回答No.5

hallo-2007 · ベストアンサー

No3です。
For i = 1 To nTotal
.Cells(i + 7, Rtm).Value = Sheets("製造データ").Cells(i, 1).Value
Next i
ということでしょうか？

Dim Rtm As Variant
にする必要もないと思います。

Dim nTotal As Long
Dim Rtm As Integer
nTotal = Sheets("製造データ").Range("A1").End(xlDown).Row
Rtm = Sheets("製造データ").Range("J1").Value
With Sheets("抽出")

For i = 1 To nTotal
.Cells(i + 7, Rtm).Value = Sheets("製造データ").Cells(i, 1).Value

Next i
End With

で十分かと
やりたいことと違ったら、補足してください。

お礼

有難うございました。あちらこちらからサンプル引っ張り出してきて、

色々な数値をいれ込んだりして苦戦していました。

基本は全く出来ていないのでダメな事は分かっていました。

本当に有難うございました。

回答No.6

tsubuyuki

余計な世話と罵られるのを承知で。

＃５さま、

>> .Cells(i + 7, Rtm).Value = （略）

これだと「８行目以降」に転記ですね。

>> For i = 1 To nTotal

ｉの起点は「１」ですから。

回答No.4

tsubuyuki

やはりいまいちよく「あと一歩、何が足りないのか」わからないのですが、
算数の問題なのではないかなぁ、と思いますよ。

> .Cells(i * 3 - 2, Rtm)
　ｉ＝１　の時、返り値は「１×３－２＝１」
　ｉ＝２　の時、返り値は「２×３－２＝４」
　ｉ＝３　の時、返り値は「３×３－２＝７」
　　（略）

おそらくですが、書き込みたい行は返ってこないでしょう。

７行目以降に貼り付けたいのであれば

　　　　For i = 1 To nTotal
　　　　　　　　.Cells(i + 6, Rtm).Value =（略）

で良いのでは？

お礼

有難うございました。<m(__)m>

全然しりませんでした。３日間考え抜いたのですけれど、

何とかマクロが走ってくれました。

基礎も全く出来ていない小生に御指導有難うございました。

回答No.3

hallo-2007

しばしおつきあいしますが
＞製造シートのＡ列のデータを抽出シートのRtmが代入されたセルの上から7行目以下に貼付たいのです。
の意味が分かりません
Rtm = Sheets("製造データ").Range("J1")
ですので、Sheets("製造データ").Range("J1")　には、何が入っているのですか？
補足お願いします。
いまあるコードに、機能を追加したいということ？
このコードでは、希望した結果が出ないということ？

補足

説明不足すいませんでした。
("J1")にはMach関数で所得した抽出シートの左端からの列番が入っています。

製造データシートから抽出シートの貼付先の上段から例えば７段目以降に順に貼付たいと思っています。

回答No.2

DreamyCat

追加です。
先の例でいいなら、
Dim nTotal as long , i as long
Dim Rtm As long
にしたほうがいいでしょう。

回答No.1

DreamyCat

説明がよくわからないのでとコードがそれであっているのかわかりませんが
Rtm = Sheets("製造データ").Range("J1").column
ということでは？