|
|
#4
10-06-2015, 03:32 PM
|
|||
|
|||
Code:
Sub luxation()
Dim i As Long
With Range("R:R")
For i = .Cells(.Rows.Count).End(xlUp).Row To 2 Step -1
If .Cells(i).Value2 = .Cells(i - 1).Value2 Then .Cells(i, 1).ClearContents
Next i
End With
End Sub
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Need help with conditional formatting & returning "Pass" / "Fail Results" in a Column N | mikey386 | Excel | 2 | 12-11-2014 01:14 PM |
| remove repeated words with " macro " or " wild cards " in texts with parentheses and commas | jocke321 | Word VBA | 2 | 12-10-2014 11:27 AM |
| Modify "preset" animations in PowerPoint 2013 | ialpawsv | PowerPoint | 1 | 11-26-2014 02:23 PM |
| Outlook 2003, Modify default "entry type" for new journal entries | narichardson | Outlook | 5 | 03-14-2012 08:34 AM |
 How to choose a "List" for certain "Heading" from "Modify" tool?
|
Jamal NUMAN | Word | 2 | 07-03-2011 03:11 AM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode