Duplicate number and it value in column EXCEL [closed]

by 

Option Explicit

Sub wqewrty()
    With Worksheets("sheet1").Cells(1, 1).CurrentRegion
        .Cells.Sort Key1:=.Columns(1), Order1:=xlAscending, _
                    Key2:=.Columns(2), Order2:=xlAscending, _
                    Orientation:=xlTopToBottom, Header:=xlNo
        With .Columns(1).Offset(1, 0)
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlExpression, Formula1:="=$A2=$A1"
            .FormatConditions(1).NumberFormat = ";;;"
        End With
    End With
End Sub

I’ve assumed that you wanted to use column B as a secondary sort key to the primary sort key on column A. If not, remove the second key and order from the .Sort command.

enter image description here

More Related Contents:

  1. Conditional Formatting using Excel VBA code
  2. Excel VBA – Combine rows with duplicate values in one cell and merge values in other cell
  3. How to highlight a cell using the hex color value within the cell?
  4. using for loop for vba
  5. How do I get values from a hidden worksheet using VBA [closed]
  6. How to copy cells that contain certain text to another worksheet [closed]
  7. VBA Macro for copying and pasting columns on same excel sheet
  8. Excel VBA, code to count the # of filled cells, then find highest and 2nd highest and subtract the corresponding column #’s [closed]
  9. Levenshtein Distance in VBA [closed]
  10. VBA Runtime Error 1004 “Application-defined or Object-defined error” when Selecting Range
  11. How do I base64 encode a string efficiently using Excel VBA?
  12. Assign event handlers to controls on user form created dynamically in VBA
  13. Programmatic Access To Visual Basic Project Is Not Trusted
  14. Can I make this macro more efficient or faster?
  15. Controlling IE11 “Do you want to Open/Save” dialogue window buttons in VBA
  16. How to get the background color from a Conditional Formatting in Excel using VBA
  17. VBA Excel Populate ListBox with multiple columns
  18. VBA Integer Overflow at 70,000
  19. How to count up text of a different font colour in excel
  20. VBA Macro to compare all cells of two Excel files
  21. What does ReDim Preserve do?
  22. How to create a separate CSV file from VBA?
  23. VBA: How to change the value of another cell via a function?
  24. Running VBA from a HYPERLINK()
  25. Sending formatted Lotus Notes rich text email from Excel VBA
  26. Range.Find not making a difference between January and November (February and December) in VBA Excel
  27. Remove Duplicates from range of cells in excel vba
  28. Excel Select vs Activate
  29. Fast compare method of 2 columns [closed]
  30. Fastest way to check if two ranges are equal in excel vba [duplicate]

Leave a Comment