Скажем, у нас есть такие данные в столбце 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
Если вы сохраните книгу, макрос будет сохранен вместе с ней.
Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx
Чтобы удалить макрос:
- откройте окно 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
Макросы должны быть включены, чтобы это работало!