複数シートに、各処理をしたい

Question

Sub 行非表示()

    Dim filePath As Variant
    filePath = Application.GetOpenFilename _
               (FileFilter:="Excelブック(*.xlsx; *.xlsm; *.xls;),*.xlsx; *.xlsm; *.xls", MultiSelect:=True)
               
    Dim file As Variant
    Dim wb As Workbook
    Dim row(11) As Long    '
    Dim i(11) As Long
    
    For Each file In filePath
        Set wb = Workbooks.Open(file)
        row(1) = wb.Sheets(3).Cells(Rows.Count, 12).End(xlUp).row    'シート3　L列　取得
            For i(1) = 9 To 62
                If wb.Sheets(3).Cells(i(1), 12) = "" Then
                    Rows(i(1)).Hidden = True
                End If
            Next i(1)
            
        row(2) = wb.Sheets(4).Cells(Rows.Count, 12).End(xlUp).row
            For i(2) = 9 To 71
                If wb.Sheets(4).Cells(i(2), 12) = "" Then
                    Rows(i(2)).Hidden = True
                End If
            Next i(2)

        row(3) = wb.Sheets(5).Cells(Rows.Count, 12).End(xlUp).row
            For i(3) = 9 To 58
                If wb.Sheets(5).Cells(i(3), 12) = "" Then
                    Rows(i(3)).Hidden = True
                End If
            Next i(3)

    Next

End Sub

上記のコードがどうしてもうまくいきません。
各シートの指定範囲の行の値が空白のとき、非表示にする。というマクロを作りたいのですが、うまくシートを取得してくれません…
どなたかヒントだけでも構いませんのでご教授ください。

実行するとシート5の9~71行目まで非表示にするなど
指定したシートと処理が一致していません…
エラーは出ていません。

Comments

[y_waiwai]

うまくシートを取得してくれない、とはどういう動作となるんでしょうか。
エラーが出るならエラーメッセージも提示しましょう

[Dis]

失礼しました。
実行するとシート5の9~71行目まで非表示にするなど
指定したシートと処理が一致していません…
エラーは出ていません。

[y_waiwai]

それを質問文に追記しましょう。
質問は編集できます

[meg_]

一行ずつデバッグしましょう。

Answer 1

以下のようにようにしてください。
とりあえず、３か所修正すれば、期待する結果になるかと思います。
修正個所は、「’修正」のコメントを入れてます。
ほかにも、いろいろ、指摘すべき個所はありますが、それは、置いておきます。

Sub 行非表示()

    Dim filePath As Variant
    filePath = Application.GetOpenFilename _
               (FileFilter:="Excelブック(*.xlsx; *.xlsm; *.xls;),*.xlsx; *.xlsm; *.xls", MultiSelect:=True)

    Dim file As Variant
    Dim wb As Workbook
    Dim row(11) As Long    '
    Dim i(11) As Long

    For Each file In filePath
        Set wb = Workbooks.Open(file)
        row(1) = wb.Sheets(3).Cells(Rows.Count, 12).End(xlUp).row    'シート3　L列　取得
            For i(1) = 9 To 62
                If wb.Sheets(3).Cells(i(1), 12) = "" Then
                    wb.Sheets(3).Rows(i(1)).Hidden = True   '修正
                End If
            Next i(1)

        row(2) = wb.Sheets(4).Cells(Rows.Count, 12).End(xlUp).row
            For i(2) = 9 To 71
                If wb.Sheets(4).Cells(i(2), 12) = "" Then
                    wb.Sheets(4).Rows(i(2)).Hidden = True   '修正
                End If
            Next i(2)

        row(3) = wb.Sheets(5).Cells(Rows.Count, 12).End(xlUp).row
            For i(3) = 9 To 58
                If wb.Sheets(5).Cells(i(3), 12) = "" Then
                    wb.Sheets(5).Rows(i(3)).Hidden = True   '修正
                End If
            Next i(3)

    Next

End Sub

Answer 2

Sheet(4)は左から4番目のシートであって"シート4"(または"Sheet4")という名前のシートとは限りません。
表示位置を確認してください。

Comments

[sage]

複数のbook(excelファイル)に同じ処理をするには、個々のexcelファイルのシートを作成する順番("Sheet1")か、シート名("シート1")、シートを並べる順序(sheet(n))のどれかを統一する必要があり、それができていないとexcelファイル毎に処理を分ける必要があります。