New Row with formulas after every last duplicate in selected column

lucabianco

New Member
Joined
Feb 25, 2022
Messages
1
Office Version
  1. 365
Platform
  1. 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)
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?
 

Excel Facts

Round to nearest half hour?
Use =MROUND(A2,"0:30") to round to nearest half hour. Use =CEILING(A2,"0:30") to round to next half hour.

Forum statistics

Threads
1,223,903
Messages
6,175,284
Members
452,630
Latest member
OdubiYouth

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top