質問: "=" & WSin.Cells(i, 3).Value End If Next i
回答: コード内にある説明文は 入力があれば If WSin.Cells(i, 1).Value <> "" Then 指定のシートの .Worksheets(WSin.Cells(i, 1).Value) 指定番地に Range(WSin.Cells(i, 2).Value) 数式を入れる = "=" & WSin.Cells(i, 3).Value です WSin(シート)の A10~にシート名 B10~にセルアドレス が入っていないとエラーになります