|
はじめまして
よろしくお願いします
本やサイトなどで見て試行錯誤ながら 作ったのですが
エラーが出たり 思うように反映しません
やりたいこと
3シートから50シートまでの同じ表の数字を 提出データのシートに転記するには、下記で何が足りないのか、修正すればよいかご教示いただけたら幸いです
Sub 転記()
Const TENKI_SAKI = 1
Const TEISYUTU_SAKI = 1
Const WKST_SAKI = 1
Dim tenki ’転記データ変数
Dim i 'ワークシート変数
Dim tenpo '店舗データ変数
MsgBox "転記します"
tenki = TENKI_SAKI '転記データ2行目から
For i = 3 To 50
Worksheets("提出データ").Range("c" & tenki).Value = Worksheets(i).Range("b" & tenpo).Value
For tenpo = 5 To Worksheets(i).Range("b4").End(xlDown).Row
'店舗データ5行目から入力行まで
tenki = tenki + TEISYUTU_SAKI
i = i + WKST_SAKI
Next
Next
End Sub
|
|