Это продолжение вопроса, который я задавал ранее Как мне найти индекс последней строки каждого дубликата в том же столбце? . В настоящее время я пытаюсь извлечь каждое из дублированных имен, которые я уже нашел, хранящихся под ключом словаря. Но как мне извлечь и express их в виде массива, используя ключ, который я нашел ранее? Потому что в конечном итоге я хочу использовать размер массива в качестве одного из условий, чтобы скопировать весь столбец дублированных имен в другой лист, но я не смог express ключ здесь, чтобы они имели размер массива.
edit: что я имею в виду под извлечением каждого дублированного имени, где размер arr должен быть равен 4, как arr = («Джон», «Трамп», «Алиса», «Сара»), если мне удалось извлечь их из dict в массив
Dim target as long
For Target = LBound(Arr) To UBound(Arr)
изображение деталей словаря, которые проверяют наличие дублированного имени
Debug.Print Key, Dict(Key), Rng.Address
'dict (ключ) относится к последнему индексу дублированных имен, ключ относится к имени дублированное имя, Rng.address относится к диапазону, в котором находится каждое дублированное имя.
цель поиска массива в виде arr = (" Джон "," Трамп "," Алиса "," Сара ")
Поскольку в конечном итоге я хотел скопировать и вставить весь дубликат в разные листы, например, всю строку, состоящую из имени Джон в Джон рабочий лист, весь ро ш, который состоит из имени сара в лист сара. Следовательно, мой план размещения состоит в том, чтобы найти их индекс строки, а затем использовать массивы, чтобы проверить, существует ли их имя в arr = ("john", "sarah", "alice", "trump"), и, если они существуют, перейдите к копированию. и вставьте их в соответствующий лист. Следовательно, после того, как я получил свой rowindex от dict, я попытался интегрировать их в части arr, что приводит меня к этой проблеме ..