Alex_Piggy
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Доброе время, tamweb
1. Excel VBA (часть 3)
2. Создать объект Dictionary. Асоциативный массив. Можно "as New Dictionary". Создавать ключ с единицей. Или добавлять единицу.
Код:
Sub CheckDub ()
Dim oDict, aArr, vVal, oCell
Set oDict = CreateObject("Scripting.Dictionary")
For Each oCell in Selection
vVal = oCell.Value2
If oDict.Exists(vVal)
oDict.Item(vVal) = oDict.Item(vVal) + 1
oCell.Value2 = oCell.Value2 & "." & oDict.Item(vVal)
Else
oDict.Add vVal, 1
End If
Next oCell
End Sub
|
|
