Merge cell without specifying a range?

Question

I am running a Powershell script with an XLSx function where I get output from multiple script and
the output are stored in seprate worksheets. In 2 of my worksheets I have row name for each column, I have managed to remove (blank) the duplicate row value. Now I am looking to merge those cells whose colA rows are blank. I understand that we need to specify
the range for the cells to be merge. Is it possible to merge without specifying a range?

Answer 1

Hi,
Would you like to share us a sample of the file? Based on your description, my understanding is that you want to merge the blank cells with above cells which include the value. And you do not want to assign the range. If it is, please try the following
code:
Sub MergeCells()
Dim LRow As Long
Dim MyRng As Range
Dim c As Range
Dim MergRng As Range
Range("A1").Activate
LRow = ActiveCell.CurrentRegion.Rows.Count
Set MyRng = Range("A1:A" & LRow)
For Each c In MyRng
If c.Value = "" Then
Set MergRng = Range(c, c.Offset(-1, 0))
With MergRng.Cells
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
End If
Next c
End Sub
Regards,
George Zhao
TechNet Community Support