質問: Excelマクロ初心者です。
回答: Set ws出力 = Worksheets("入力").Range("F1").Value ここが、まず、文字列を代入してます。正しくは Set ws出力 = Worksheets(Worksheets("入力").Range("F1").Value) です。 あとxは担当者シートから求めるのでは? それと項目3は転記しないのですか?するとして、少し弄りました。 Sub 登録ボタン() Dim ws入力 As Worksheet Dim ws出力 As Worksheet Dim x As Long Set ws入力 = Worksheets("入力") Set ws出力 = Worksheets(ws入力.Range("F1").Value) '←Worksheetsで囲まないとダメです x = ws出力.Cells(Rows.Count, 1).End(xlUp).Row + 1 With ws出力.Cells(x, 1) .Value = ws入力.Range("B1").Value '日付を転記 .Offset(0, 1).Resize(1, 3).Value = ws入力.Range("A3:C3").Value End With End Sub