【Excel】シートに設定されているすべての罫線の太さを変えるマクロ

Sub AdjustGridlineThickness()
    Dim ws As Worksheet
    Dim rng As Range
    Dim lastCell As Range
    Dim cell As Range

    Set ws = ThisWorkbook.Worksheets("Sheet1") ' Replace "Sheet1" with your actual sheet name

Application.ScreenUpdating = False
    ' Find the last cell with data in the worksheet
    Set lastCell = ws.Cells.SpecialCells(xlLastCell).Cells

    If Not lastCell Is Nothing Then

        ' Define the range to validate based on the last cell with data
        Set rng = ws.Range("A1", lastCell)

        ' Iterate through each cell in the defined range
        For Each cell In rng
            ' Check if the cell has existing gridlines
            If cell.Borders(xlEdgeLeft).LineStyle <> xlNone Then
                cell.Borders(xlEdgeLeft).Weight = xlThick ' Adjust the thickness for left gridline
            End If

            If cell.Borders(xlEdgeTop).LineStyle <> xlNone Then
                cell.Borders(xlEdgeTop).Weight = xlThick ' Adjust the thickness for top gridline
            End If

            If cell.Borders(xlEdgeRight).LineStyle <> xlNone Then
                cell.Borders(xlEdgeRight).Weight = xlThick ' Adjust the thickness for right gridline
            End If

            If cell.Borders(xlEdgeBottom).LineStyle <> xlNone Then
                cell.Borders(xlEdgeBottom).Weight = xlThick ' Adjust the thickness for bottom gridline
            End If
        Next cell
    End If
Application.ScreenUpdating = True

End Sub