선택영역에 특정문자가 포함된 행들의 높이 조정

※chatGPT 질의응답

Sub SetRowHeight_ExceptKeyword()

  '★★특정문자 있는 행높이 조정★★

    Dim rng As Range
    Dim c As Range
    Dim targetRange As Range
    Dim keyword As String
    Dim checkRow As Range
    
   '설정값
    keyword = "♨"        '← 찾을 문자
    Set rng = Selection   '← 대상 영역
    
    Application.ScreenUpdating = False

    For Each c In rng.Rows
        
        Set checkRow = c
        
       '행 전체에서 특정문자 존재 여부 체크
        If WorksheetFunction.CountIf(checkRow, "*" & keyword & "*") > 0 Then
            
           '조건 만족하면 Union으로 누적
            If targetRange Is Nothing Then
                Set targetRange = checkRow
            Else
                Set targetRange = Union(targetRange, checkRow)
            End If
            
        End If
        
    Next c

   '한번에 행높이 적용
    If Not targetRange Is Nothing Then
        targetRange.RowHeight = 12   '← 원하는 높이
    End If

    Application.ScreenUpdating = True

End Sub

선택영역의 특정문자가 포함된 행들의 높이 조정.txt

0.00MB