|
以下のところで「実行時エラー'1004': 'Range'メソッドは失敗しました」
と表示されますが、何が原因なのか分かりません。
Dim Ha2 As Integer
Ha2 = Application.Match("Oct 2005 HA", Range(Cells(2, 6), Cells(2, 6).End(xlToRight)), 0)
Workbooks("Nov 2005.xls").Sheets("input").Activate
Union(Range(Cells(5, Ha2 + 5 + i), Cells(10, Ha2 + 5 + i)), Range(Cells(14, Ha2 + 5 + i), Cells(22, Ha2 + 5 + i)), Range(Cells(26, Ha2 + 5 + i), Cells(37, Ha2 + 5 + i)), Range(Cells(41, Ha2 + 5 + i), Cells(65, Ha2 + 5 + i)), Range(Cells(70, Ha2 + 5 + i))).FormulaR1C1 = "=RC[-10]-RC[-1]"
|
|