Private Sub uniqueCells() Dim dSet As New cDataSet, r As Range, cc As cCell Set r = firstCell(wholeSheet("messAround")) With dSet.populateData(wholeSheet("Sankey")) r.Value = "sourceLabel" If Not .Where Is Nothing Then For Each cc In .column("sourceLabel").uniqueValues() Set r = r.Offset(1) r.Value = cc.Value Next cc End If End With End Sub
bruce mcpherson is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Based on a work at http://www.mcpher.com. Permissions beyond the scope of this license may be available at code use guidelines