|
|
#2
09-19-2014, 11:46 PM
|
||||
|
||||
Assuming Mac VBA is similar to PC VBA then the following should work. The code assumes column A contains the document names in question
Code:
Sub RemoveDuplicates()
Dim LastRow As Long
Dim i As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = LastRow To 2 Step -1
If Left(Cells(i, 1), 18) = Left(Cells(i - 1, 1), 18) Then
Rows(i).Delete Shift:=xlUp
End If
Next i
End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Deleting rows & pushing them up causing issues | ep2002 | Excel | 2 | 08-29-2014 02:09 AM |
 Macro for Column to Rows Data
|
brunssl2 | Excel Programming | 3 | 04-28-2014 07:07 AM |
|
Deleting rows with specific criteria
|
joflow21 | Excel | 9 | 11-22-2013 12:10 PM |
| Outlook 2010 & Redundant Files Cleanup | goombarok | Outlook | 0 | 03-09-2012 08:04 AM |
| Concatenated data in subsequent rows | doorsgirl | Excel | 4 | 09-15-2011 10:37 PM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode