■ランダムな文字列作成 '--------------------------------------------- 'ランダムな文字列作成 ' hasNumがTrueの場合 : A-Z,a-z,0-9 ' Falseの場合 : A-Z,a-zのみ '--------------------------------------------- Function GetRandStr(Optional length As…

■全シート名を取得 Sub GetAllSheetsName() Dim i As Long For i = 1 To Worksheets.Count Debug.Print Worksheets(i).Name Next End Sub ■全シート名を変更(特定の文字列+連番) Sub ChangeAllSheetsName(Changed As String) Dim i As Long For i = 1 To Wor…