Добрый день!
Имеется часть кода, которая планировалась использоваться для поиска значений одного столбца(лист 2, C:C), в другом(лист 3, A:A) и последующее копирование соответствующего второму столбцу значения из соседней ячейки в соответствующую на листе 1.
Пример:
Значение C1 на листе 2 совпало со значением A3 на листе 3. Тогда копируем с листа 3 ячейку X3 и вставляем на лист 2 в D2.
ошибка возникает в строке 4.
Я понимаю, что можно попробовать обойти через тот же впр, или .Find, но хотелось бы понять причинно-следственные связи возникновения данной ошибки.
Имеется часть кода, которая планировалась использоваться для поиска значений одного столбца(лист 2, C:C), в другом(лист 3, A:A) и последующее копирование соответствующего второму столбцу значения из соседней ячейки в соответствующую на листе 1.
Пример:
Значение C1 на листе 2 совпало со значением A3 на листе 3. Тогда копируем с листа 3 ячейку X3 и вставляем на лист 2 в D2.
| Код |
|---|
Sub FormSt()
Dim ChO As Range, ChT As Range
For Each ChO In Sheets(2).Range("C1", Cells(Rows.Count, 3).End(xlUp))
For Each ChT In Sheets(3).Range("A1", Cells(Rows.Count, 1).End(xlUp))
If ChT.Value = "*" & ChO.Value & "*" Then
ChT.Offset(0, 13).Copy
ChO.Offset(0, 2).PasteSpecial (xlPasteValues)
End If
Next
Next
End Sub
|
ошибка возникает в строке 4.
Я понимаю, что можно попробовать обойти через тот же впр, или .Find, но хотелось бы понять причинно-следственные связи возникновения данной ошибки.
