![]() |
|
![]() |
|
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
|
|||
|
|||
![]() |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
MacroMess | Word VBA | 6 | 06-05-2015 09:48 AM |
![]() |
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 |
![]() |
tonywatsonmail | Mail Merge | 4 | 04-27-2012 01:57 AM |