lucabianco
New Member
- Joined
- Feb 25, 2022
- Messages
- 1
- Office Version
- 365
- Platform
- Windows
Hey everyone
I am working on a huge Entity in excel.
I have to enter a row after every last duplicate in column and insert formula in this row:
Every column except 16: UNIQUE
Column 16: ConcatenateUnique (macro, found somewhere over the net).
I found a macro here to enter a clear row after finding every last duplicate in specified column, but it seems an Author is no longer using the forum:
ConcatUniq macro which do: Concatenate unique values in specified range with specified delimiter (can be semicolon)
Could any of you guys help me?
I am working on a huge Entity in excel.
I have to enter a row after every last duplicate in column and insert formula in this row:
Every column except 16: UNIQUE
Column 16: ConcatenateUnique (macro, found somewhere over the net).
I found a macro here to enter a clear row after finding every last duplicate in specified column, but it seems an Author is no longer using the forum:
insert a blank row after each group of duplicate entries
Help needed! After sorting my data, column B shows a lot of duplicate entries. I want to write a macro that will, insert a blank row after each group of duplicate entries, this will enable me to see them more easily. I want this process to find the last active row in the worksheet then start.
www.mrexcel.com
ConcatUniq macro which do: Concatenate unique values in specified range with specified delimiter (can be semicolon)
VBA Code:
Function ConcatUniq(xRg As Range, xChar As String) As String 2 Dim xCell As Range 3 Dim xDic As Object 4 Set xDic = CreateObject("Scripting.Dictionary") 5 For Each xCell In xRg 6 xDic(xCell.Value) = Empty 7 Next 8 ConcatUniq = Join$(xDic.Keys, xChar) 9 Set xDic = Nothing 10End Function
Could any of you guys help me?