ＶＢＡの転記について

質問

With Sheets("入力")

'3行目～22行目まで
For i = 5 To 24

SheetName = Sheets("入力").Cells(i, "C").Value

On Error Resume Next
Set Dummy = Sheets(SheetName)
SheetName2 = .Cells(i, "C").Value

U最終行 = Sheets(SheetName2).Range("C65536").End(xlUp).Row + 1
If U最終行 = 39 Then
Sheets(SheetName2).Copy BEFORE:=ActiveSheet
Sheets(SheetName).Delete
End If

If Err.Number = 0 Then

A = Sheets(SheetName2).Range("C65536").End(xlUp).Row + 1

Sheets(SheetName2).Range("C" & A).Value = .Cells(i, "G").Value
Sheets(SheetName2).Range("D" & A).Value = .Cells(i, "I").Value
Sheets(SheetName2).Range("E" & A).Value = .Cells(i, "L").Value
Sheets(SheetName2).Range("F" & A).Value = .Cells(i, "N").Value
Sheets(SheetName2).Range("G" & A).Value = .Cells(i, "P").Value
Sheets(SheetName2).Range("H" & A).Value = .Cells(i, "R").Value
Sheets(SheetName2).Range("I" & A).Value = .Cells(i, "T").Value
Sheets(SheetName2).Range("K" & A).Value = .Cells(i, "V").Value
Sheets(SheetName2).Range("L" & A).Value = .Cells(i, "X").Value

ElseIf .Cells(i, "C").Value <> "" Then

G = Sheets("原紙").Range("C65536").End(xlUp).Row + 1

Sheets("原紙").Range("B1").Value = .Cells(i, "D").Value
Sheets("原紙").Range("B4").Value = .Cells(2, "D").Value
Sheets("原紙").Range("C" & G).Value = .Cells(i, "G").Value
Sheets("原紙").Range("D" & G).Value = .Cells(i, "I").Value
Sheets("原紙").Range("E" & G).Value = .Cells(i, "L").Value
Sheets("原紙").Range("F" & G).Value = .Cells(i, "N").Value
Sheets("原紙").Range("G" & G).Value = .Cells(i, "P").Value
Sheets("原紙").Range("H" & G).Value = .Cells(i, "R").Value
Sheets("原紙").Range("I" & G).Value = .Cells(i, "T").Value
Sheets("原紙").Range("K" & G).Value = .Cells(i, "V").Value
Sheets("原紙").Range("L" & G).Value = .Cells(i, "X").Value

'原紙をコピーする
Sheets("原紙").Copy BEFORE:=Sheets(1)
'シートの名前を市場コードにする
Sheets(1).Name = SheetName

End If

Next i

End With

On Error GoTo 0

上記のＶＢＡを作成しましたが、
C行の値ごとの転記(Ｇ～Ｘの値)が出来ません。
どこが間違いか教えていただけないでしょうか。

回答No.2

doara_2011 · ベストアンサー

＞With Sheets("入力")
ときて
＞SheetName = Sheets("入力").Cells(i, "C").Value
＞SheetName2 = .Cells(i, "C").Value
なので、SheetNameとSheetName2は全く同じ文字列になっています。
これで大丈夫なのでしょうか？ そしてU最終行が39の時には
Sheets(SheetName)が削除されます。マクロを走らせる時点で、
ワークシートSheetNameが存在していれば Err.Number は、値を判定する時点では
0 になっているはず。その場合、削除したばかりのSheets(SheetName) のセル
に書き込もうとしています。これが原因では？

一番の敗因は、On Error Resume Next をマクロの最初の方で使用していて、最後まで
リセットを行っていない点でしょう。
このせいで、本来エラーでプログラムが止まる場所でも、素通りしてしまうので、
間違いに気づきにくい。最初はOn Error Resume Next 等は無しで作成した方がよいかも？

＞If Err.Number = 0 Then
のある行も、On Error Resume Next から何行も離れているのは感心しません。
これでは、どの行がエラーになっているかわからないからです。エラーが起きるかも
しれない行の直後に書きましょう。

あと、Cells(i, "C") は正当な書き方なので、これが原因ではありません。

以上

回答No.3

ap_2

>> ANo.2
>あと、Cells(i, "C") は正当な書き方なので

し、知らなかった・・・
indexだと信じて、いつもわざわざ変換してたよ（－－；
書式統一しないとバグ増えやすいのもあるけど。。。

回答No.1

ap_2

Cellsの引数は数値ですよ。エラー発生して処理飛んでるんじゃ？
　× SheetName2 = .Cells(i, "C").Value
　○ SheetName2 = .Cells(i, 3).Value　 ※同じミスがたくさん

--------
VBAは、VisualBasicEditorがあるからこそ、簡単で便利なんです。
すこし機能を紹介するので、自力で直せるよーになってください。
・ブレイクポイント
　処理を一時停止します。ステップ実行や、変数の中身を確認ができます。
・ステップ実行
　処理を1行ずつ実行したり、戻したり進めたりできます。
・ローカルウィンドウ
　処理停止中に、変数の中身が表示されます。

※くわしくは「VBE　デバッグ」とかで検索
　http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_030.html