秋水の歌的专栏

'--専嶕忦審梡峔憿懱 Public Type SearchCondition col As Integer '--専嶕忦審楍偺巜掕 val As String '--専嶕忦審楍偵懳墳偟偨専嶕忦審 End Type '--慖戰巿掕媊梡峔憿懱 Public Type Choices strLstBox_SheetName As String

Sub 集計マクロ() Rem 実行シート以外のシート削除、再集計する。 Application.DisplayAlerts = False Application.ScreenUpdating = False Dim MyPath As String Dim MyFile As String