Здравствуйте. Вставляю данные макросом, но они встают на 3 ячейки ниже. Лишь один регулятор нашёл вместо F4 поставить F1, но тогда у меня попадает на заголовок таблицу. Подскажите пожалуйста, где подставить -3, чтобы данные оказались на своём месте? Всё перепробовал "тыком", везде ошибку выдаёт.
Код |
---|
b = Sheets(6).UsedRange.Value ' таблица, в которой ищем With CreateObject("Scripting.Dictionary") For ix = 1 To UBound(b) ' последняя строка исх.таблицы .Item(b(ix, 1)) = ix ' заносим в словарь код Next aa = Sheets(1).UsedRange.Columns(16).Value ' диапазон, который ищем ReDim c(1 To UBound(aa), 1 To 1) ' создаём размер итоговой таблицы For ix = 1 To UBound(aa) If .exists(aa(ix, 1)) Then ii = .Item(aa(ix, 1)) c(ix, 1) = b(ii, 3) End If Next End With Sheets(1).[F4].Resize(ix) = c() |
"..Сладку ягоду рвали вместе, горьку ягоду я одна."