How to keep value of merged cells in each cell?

user_813576 0
Viewed 67830

I created a sheet with merged cells, but the value of the merged cells is only stored in the first cell. Is there anyway, to keep the same value in each of the cells, I need that for a formula I use. Thanks!

cells excel-2007 merge excel
9 Answers

Say A13 through A52 are merged. a = Cells(13,1) will return a value but a = Cells(14,1) will not "Empty"
Fix:
a = Cells(X,1).MergeArea(1, 1) 'if x=13 through 52 will return value in A13.
don't know how i got this to work but it works.

user_191942550 
 Dim rowcnt As Long, i As Long
    rowcnt = Cells(Rows.Count, "A").End(xlUp).Row
    For i = rowcnt To 3 Step -1
        With Cells(i, 1)
            If .Value = Cells(i - 1, 1).Value Then
                .Font.ColorIndex = 9
            End If
        End With
    Next i
user_114106720
Related