Я просто создаю список уникальных предметов, используя словарь из разных столбцов и подавая их в комбинированные поля. Я хотел бы знать, есть ли способ проверить, содержит ли словарь только числовые значения или буквенно-числовые, поскольку некоторые столбцы содержат только числа, а другие содержат текст и даты.VBA scripting.dictionary проверяет даты словаря или числовые или буквенные числа?
With Sheets("Database")
cNr = WorksheetFunction.Match(fString, .Rows(1), 0)
lRo = .Cells(Rows.Count, 1).End(xlUp).Row
Set d = CreateObject("scripting.dictionary")
For Each c In Range(.Cells(2, cNr), .Cells(lRo, cNr))
If Len(c.Value) > 0 Then
If Not d.Exists(c.Value) Then d.Add c.Value, 1
End If
Next c
k = d.keys
End With
У меня есть еще один вопрос. Я хотел бы создать цикл и создать уникальный список каждого столбца и сохранить его в k1, k2, k3 ... и так далее. Как мне это сделать?
Спасибо.
благодаря .И будет попробовать. У меня есть еще один вопрос. Я хотел бы создать цикл и создать уникальный список каждого столбца и сохранить его в k1, k2, k3 ... и так далее. Как мне это сделать? – Shan
не могли бы вы предоставить образец данных (подделка), я покажу вам путь – Vasily
Добавлен поддельный снимок экрана .. – Shan