汎用

コード

Sub 前処理()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Call フィルター解除
    Call 非表示解除
End Sub

Sub 後処理()
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.EnableEvents = True
End Sub

Function フォルダ選択()
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = ThisWorkbook.Path & "\"
        .AllowMultiSelect = False
        .Title = "フォルダの選択"
        If .Show = True Then
            フォルダ選択 = .SelectedItems(1)
        Else
            MsgBox "選択されていません"
        End If
    End With
End Function

Function 最終行取得(ByVal TgtSheet As String)
    最終行取得 = ThisWorkbook.Sheets(TgtSheet).Cells.SpecialCells(xlLastCell).Row + 1
End Function

Sub フィルター解除()
    If ActiveSheet.FilterMode = True Then
        ActiveSheet.ShowAllData
    End If
End Sub

Sub 非表示解除()
    Rows.Hidden = False
    Columns.Hidden = False
End Sub

解説