![]() |
|
|||||||
|
|
|
Thread Tools | Display Modes |
|
|
|
#1
|
|||
|
|||
|
Code:
Sub MI_Merge_FV()
Dim i&, k&: k = 1
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
If Left(Cells(i, 2), 1) = "T" Then
Cells(k, 1).Resize(i - k).Merge
k = i + 1
End If
Next i
End Sub
Cross Post: http://www.mrexcel.com/forum/excel-q...ml#post4339619 http://www.excelforum.com/excel-prog...ml#post4238629 |
|
#2
|
|||
|
|||
|
|
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
Word 2010 New maros - debugging needed
|
MacroMess | Word VBA | 6 | 06-05-2015 09:48 AM |
Triggering event on hyperlink notifying user before redirecting
|
JustAboutNoon | Word VBA | 3 | 10-16-2014 08:41 PM |
| stop spell check in the code block | yudiannlu | Word | 9 | 11-08-2013 01:42 PM |
| remain english words only | tomlam | Excel | 4 | 05-12-2013 07:53 PM |
Code to stop as "save as" if the mail merge has not been done
|
tonywatsonmail | Mail Merge | 4 | 04-27-2012 01:57 AM |