Merge Cells

[ng6971]

Hi everyone,

I have a spreadsheet contains multiple column data on it. In column B there are some bold character entries.
Condition is that wherever bold entries in column B, if there are blank cells between column C to column J,
merge all the cells between Column B to Column J in whole spreadsheet by a vba code.

Thanks in advance.

 

[ouvay]

Here you go

Private Sub ng6971_ConditionalMerging()
    Dim ws As Worksheet: Set ws = Sheets("Sheet1") ' Change sheet name if required
    Dim lr As Long, rw As Long, col As Long
    
    lr = ws.Cells(Rows.Count, 2).End(3).Row
    For rw = 2 To lr
        If ws.Cells(rw, 2).Font.Bold Then
            For col = 3 To 10
                If ws.Cells(rw, col).Value = "" Then
                    ws.Cells(rw, 3).Resize(, 8).Merge
                End If
            Next col
        End If
    Next rw
End Sub

 

[ng6971]

Here you go

Private Sub ng6971_ConditionalMerging()
    Dim ws As Worksheet: Set ws = Sheets("Sheet1") ' Change sheet name if required
    Dim lr As Long, rw As Long, col As Long
   
    lr = ws.Cells(Rows.Count, 2).End(3).Row
    For rw = 2 To lr
        If ws.Cells(rw, 2).Font.Bold Then
            For col = 3 To 10
                If ws.Cells(rw, col).Value = "" Then
                    ws.Cells(rw, 3).Resize(, 8).Merge
                End If
            Next col
        End If
    Next rw
End Sub

Sir, thank you so much for solution. Regards.

 

[ouvay]

Thanks for your feedback, I feel like I should tell you that even if it finds 1 empty cell between columns C and J .. it will merge, if you would like me to change that, let me know, if it's not an issue then nevermind