Dim rng as Range Set rng = Range(“A2:C6”) rng.RemoveDuplicates Columns:=Array(1, 2, 3,), Header:=xlNo 'A, B, C 기준 잡고 중복제거

Dim columns = From row In onebon_dt Group row By steps = row("Step").ToString() Into Group Where Group.Count > 0 Select steps Dim query = onebon_dt.AsEnumerable().GroupBy( Function(l) New With { Key .Item = l.Field(Of String)("Item") }).Select( Function(g) g.FirstOrDefault Dim row = output_dt.NewRow() row("Item") = g.Key.Item Return row End Function).CopyToDataTable()