VBA
Sub関数で引数1つで引数がオブジェクト型の場合、引数を括弧で括るとエラーになる。
Callをつけるか括弧を消す。
Sub関数で引数2つ以上の場合、引数を括弧で括るとエラーになる。
Callをつけるか括弧を消す。
Sub mergeCell() Dim i As Integer Dim j As Integer Application.ScreenUpdating = False For i = Selection(1).Row To Selection(Selection.Count).Row Range(Cells(i, Selection(1).Column), Cells(i, Selection(Selection.Count).Column)).MergeCells = True Next i Application.ScreenUpdating = True End Sub
Sub sheetCopy() Dim i As Integer Application.ScreenUpdating = False For i = 1 To 84 Worksheets("Sheet2").Copy Before:=ThisWorkbook.Worksheets("Sheet2") ActiveSheet.Name = Worksheets("Sheet1").Cells(i, 1).Value ActiveSheet.Cells(1, 1).Value = Worksheets("Sheet1").Cells(i, 1).Value Next i Application.ScreenUpdating = True End Sub