Ошибка: неверный или неквалифицированный - вставка копии VBA

Question

Я пытаюсь скопировать столбец данных с одного листа на пустой лист, содержащий только соответствующие "тикеры" для большого списка ... как только это будет сделано, я надеюсь удалить все дубликаты или не копироватьих вообще.

A) Может кто-нибудь помочь выяснить, почему я получаю ошибку при установке "Тикера"

B) Что бы больше всегоэффективный метод для удаления дубликатов?

Dim BottomRow As Long
Dim TopRow As Long
Dim col As Integer
Dim Ticker As String
Dim RngY As Range

TopRow = 6

For col = 4 To 3 + (2 * 26) Step 2

Ticker = .Cell(TopRow - 1, col - 3).Value
BottomRow = .Cells(.Rows.Count, col).End(xlUp).row
.Range(.Cells(TopRow, col), .Cells(BottomRow, col)).Copy

Worksheets("TSX-CleanDate").Activate
RngY = Worksheets("Source").Range("3A:3XFD").Find(Ticker, lookat:=xlPart)

.Cells(4, RngY).Paste

Next

Answer 1

Причина, по которой вы получаете ошибку при установке Ticker, заключается в том, что вы не ссылаетесь ни на одну рабочую таблицу в своем коде.

Ticker = .Cell(TopRow - 1, col - 3).Value

Эта часть .Cell будет работать, только если ваш код находится вWith блок, но, поскольку это не так, вам необходимо полностью квалифицировать лист следующим образом (также вы должны использовать Cells вместо Cell):

Ticker = Sheets("Sheet1").Cells(TopRow - 1, col - 3).Value

Что касается части B,проверить этот ответ .