Здравствуйте. Вставляю данные макросом, но они встают на 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()
|
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
