मान लें कि हमारे पास कॉलम A में इस तरह का डेटा है :

इस VBA मैक्रो को चलाना:
Sub GatherUniques()
Dim N As Long, cl As Collection
Dim i As Long
Set cl = New Collection
N = Cells(Rows.Count, "A").End(xlUp).Row
On Error Resume Next
For i = 1 To N
st = Replace(Cells(i, 1).Text, " ", "")
ary = Split(st, ",")
For Each a In ary
cl.Add a, CStr(a)
Next a
Next i
On Error GoTo 0
st = cl.Item(1)
For i = 2 To cl.Count
st = st & "," & cl.Item(i)
Next i
Range("B1").Value = st
End Sub
उत्पादन करेंगे:

मैक्रोज़ को स्थापित करना और उपयोग करना बहुत आसान है:
- ALT-F11 VBE विंडो लाता है
- ALT-I ALT-M एक नया मॉड्यूल खोलता है
- सामान पेस्ट करें और VBE विंडो बंद करें
यदि आप कार्यपुस्तिका को सहेजते हैं, तो मैक्रो इसके साथ सहेजा जाएगा। यदि आप बाद में 2003 के एक्सेल के संस्करण का उपयोग कर रहे हैं, तो आपको .xlsx के बजाय .xlsm के रूप में फ़ाइल को सहेजना होगा
मैक्रो को हटाने के लिए:
- ऊपर के रूप में VBE विंडो लाएं
- कोड साफ़ करें
- VBE विंडो बंद करें
Excel से मैक्रो का उपयोग करने के लिए:
- ALT-F8
- मैक्रो का चयन करें
- RUN स्पर्श करें
सामान्य रूप से मैक्रोज़ के बारे में अधिक जानने के लिए, देखें:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
तथा
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
इसके लिए मैक्रोज़ को सक्षम होना चाहिए!