Макрос для циклического просмотра значений списка в столбце и вставки одного за другим в другую ячейку

Question

У меня есть лист, который извлекает некоторые данные из финансов Yahoo. Другой лист содержит список тикеров. Мне нужно скопировать и вставить каждый из этих тикеров последовательно, ожидая 10 секунд между каждым последующим тикером.

Sheet1 one (ячейка b1) содержит символ, используемый для загрузки, в то время как sheet2 (rance A1: A40) содержит все тикеры. Я новичок в Excel и VBA, любая помощь будет высоко ценится.

Спасибо!

Answer 1

Не уверен, получу ли я ваше мнение, но вы можете попробовать что-то похожее на это (не проверено):

Dim wb as Workbook
Dim ws_1 as Worksheet
Dim ws_2 as Worksheet

Dim ticker_coll as Collection
Dim ticker as Variant

Set ticker_coll = New Collection
Set wb = ActiveWorkbook
Set ws_1 = wb.Sheets(1)
Set ws_2 = wb.Sheets(2)

'Add all tickers from sheet 2 to the collection
Dim counter as Long
For counter = 1 To 40
    ticker_coll.Add ws_2.Range("A" & counter)
Next counter

'Paste each ticker into sheet 1
For counter = 1 To 40
    ws_1.Range("B" & counter) = ticker_coll(counter)
    Application.Wait (Now + TimeValue("0:00:10")) 'Wait 10 seconds
Next counter