実現したいこと
添付写真1枚目のシートの列情報を改行して一列ずつ追加済みのシートの指定箇所に転記したい。
VBAで自動化を図って100件の自動入力を行いたいのです。現在データ量に対するシートの作成はできてます。
ただデータのコピーペーストがうまくいかず
下のプログラムだと一番左のシートの該当箇所に入力されるのみで一つずつシートが切り替わって入力繰り返しという動きになりません。
1、2、3、4、5、、、のGIDを
アカウントとIDの指定のセルに1
アカウントとID(2)の指定のセルに2と
転記するにはあと何が足りないのでしょうかご教授いただけないでしょうか?
データ総量変更可能性があるためデータ量指定したfor文では作りたくないのですが可能でしょうか?
申し訳ございませんがどなたかご教授いただけますと幸いです。
該当のソースコード
Sub ボタン4 Click()
Dim 行数 As Long
変数「行数」を作成
Dim 最終行 As Long
変数「最終行」を作成
Dim sheet no As Long
"コピー先シート番号
Dim sheet name As String
コピー先シート名
Dim sh1 As Worksheet
"Sheeti
Application.ScreenUpdating = False
・画面を止める
Set shl = Worksheets ("sheet!")
最終行 = Cel Is (Rows.Count,
sheet no = I
“A").End(x1Up) ROw最終行取得
For 行数 = 1 To 最終行
"最終行まで繰り返し
sheet name =
アカウントとID
& sheet no
Horksheets(アカウントと10”).Cells(27,
• 4). Value = shl.Cells(1]#t, 1). Value
sheet no = sheet no + 1
Next 行数
Application.ScreenUpdating = True #7.$
wseBox
”転記終了しました’’
End Sub