Birleştirilen hücrelerin etrafını kalın çizgi ile çevirme

[Feylosof]

İyi akşamlar diliyorum.

A Sütununda belli satır aralıkları ile hücreler birleştirilmiştir. Diğer birleştirmeler değil, sadece A sütunu birleştirmeleri esas alınmak şartı ile X sütununa kadar kalın çizgi ile çevirmek istiyorum.
Desteğini esirgemeyen tüm excel dostların teşekkürler.
Not: Hücre birleştirmelerde satır sayılarında bir standart yoktur.

 

[ÖmerFaruk]

A sütununda Öğretmen isimlerinin dolu olacağı varsaydım.

Sub KenarlıkBirleşmişHücreyeGöre()
    Dim NewRange As Range, ilk As Integer, FirstRow As Integer
    Range("A3:X" & Rows.Count).Borders.LineStyle = xlNone
    ilk = 3
    With Application.FindFormat
        .WrapText = False
        .ShrinkToFit = False
        .MergeCells = True
    End With
    Set NewRange = Range("A3:A" & Rows.Count).Find(What:="*")
    Do Until ilk > NewRange.Row
        With Range("A" & ilk).Resize(NewRange.Row - ilk, 24)
            .BorderAround xlContinuous, xlMedium
            .Borders(xlInsideHorizontal).LineStyle = xlContinuous
            .Borders(xlInsideHorizontal).Weight = xlThin
            .Borders(xlInsideVertical).LineStyle = xlContinuous
            .Borders(xlInsideVertical).Weight = xlThin
        End With
        ilk = NewRange.Row
        Set NewRange = Range("A3:A" & Rows.Count).FindNext(NewRange)
    Loop
End Sub

 

[Feylosof]

@ÖmerFaruk hocam size ne kadar teşekkür etsem azdır. Şen olun.