ＶＢＡの転記について
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行の値ごとの転記(Ｇ～Ｘの値)が出来ません。
どこが間違いか教えていただけないでしょうか。
お礼
ありがとうございます！！ 今動かしたらばっちりでした♪ 「Unionメソッド」 これからも活用させていただきます。 早々のご回答、ありがとうございました。