パソコン

Sub CalculateHierarchyAndAdjustFor5thLevelCorrected()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("アクセス権情報") ' シート名を指定

    Dim lastRow As Long
    Dim r As Long
    Dim path As String
    Dim hierarchy As Long
    Dim adjustedHierarchy As Long

    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    ' A列のデータをループ、3行目から開始
    For r = 3 To lastRow
        path = ws.Cells(r, 1).Value
        ' 階層数を計算（先頭の \\ を考慮）
        hierarchy = Len(path) - Len(Replace(path, "\", ""))

        ' 5階層目を1として階層数を調整
        adjustedHierarchy = hierarchy - 4
        If adjustedHierarchy < 1 Then adjustedHierarchy = 1 ' 5階層目以下は全て1

        ' B列に階層数を入力
        ws.Cells(r, 2).Value = adjustedHierarchy
        ' C列にA列とB列の値を結合して入力
        ws.Cells(r, 3).Value = path & "  " & adjustedHierarchy
    Next r
End Sub