Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
MERGE ROW CELLS BY MACRO
Hi i have this macro (please see below)
Sub InsertIt() Dim LastRow As Long Dim StartRow As Long StartRow = Cells(Rows.Count, 1).End(xlUp).Row - 1 Cells(StartRow + 1, 1).Resize(6, 1).EntireRow.Insert Cells(StartRow + 1, 9).Resize(6, 6).Merge LastRow = Cells(Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = False With Range(Cells(StartRow, 1), Cells(LastRow, 1)) ..DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _ Step:=1, Trend:=False End With Application.ScreenUpdating = True End Sub This macro basically insert 6 rows and i wanted to merge each row cells (the one been inserted by macro) from coloumn "I" to "N". one of online friend send me this line to insert in macro to merge cells. Cells(StartRow + 1, 9).Resize(6, 6).Merge by putting this line in macro works fine but instead of merging each row from coloumn "I" to "N" it merge 6 rows and make one big cell. i want those rows (the one been inserted by macro) to merge each saperatly from coloumn "I" to "N". Please any body can help as i need this for my project. Thanks. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Use a macro to merge cells in a column that are the same | Excel Programming | |||
Macro to Merge Cells | Excel Programming | |||
Need help with merge cells in a macro | Excel Programming | |||
Macro to merge cells | Excel Programming | |||
Merge cells using macro | Excel Programming |