質問: excel vbaで値のコピーを行いたいと思っております。 Worksheets("Sheet1").Range(Cells(i+1, 30), Cells(i+1, 32)).Copy の部分で 実行時エラー1004、アプリケーション定義またはオブジェクト定義のエラーです と出ます
回答: '宣言して Dim ws As Worksheet 'セットして Set ws = Worksheets("Sheet1") 'こんな感じとか i = ws.Cells(Rows.Count, 21).End(xlUp).Row Worksheets.Add ActiveSheet.Name = "Result" ws.Range("AD1:BI1").Copy Worksheets("Result").Range("A1:AF1").PasteSpecial xlPasteValues ws.Range(ws.Cells(i + 1, 30), ws.Cells(i + 1, 32)).Copy Worksheets("Result").Range("A2:AF2").PasteSpecial xlPasteValues Cells(i+ ~が”Sheet1”である事を、 明確にする必要があるかと。