Скопировать строку из одного листа в другой

@denisfarstov · Регистрация: 29.01.2018

Author24 — интернет-сервис помощи студентам

Осуществляют поиск записей с совпадениями. Если оно есть, то строку нужно скопировать на созданный лист Результаты поиска.
Вот код:

Visual Basic

    Do While i <= 1000
        If (Workbooks("шаблон.xlsm").Sheets("Лист1").Cells(i, 7) = DISTRICT) Then
            Worksheets.Add.NAME = "Результат поиска" + i
            MsgBox "test"
             Workbooks("шаблон.xlsm").Sheets("Результат поиска" + i).AddRange((Workbooks("шаблон.xlsm").Sheets("Лист1").Cells(i,1)), (Workbooks("шаблон.xlsm").Sheets("Лист1").Cells(i,23)))
        End If
        i = i + 1
    Loop

Проблема в этой строке:

Visual Basic

Workbooks("шаблон.xlsm").Sheets("Результат поиска" + i).AddRange((Workbooks("шаблон.xlsm").Sheets("Лист1").Cells(i,1)), (Workbooks("шаблон.xlsm").Sheets("Лист1").Cells(i,23)))

Тк её подчеркивает как ошибку

@Казанский · 23.09.2018, 16:44

denisfarstov, нет такого метода AddRange. Воспользуйтесь методом Range.Copy или range1.Value=range2.Value.

@Казанский 15151 / 6424 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	23.09.2018, 16:44	2
	denisfarstov, нет такого метода AddRange. Воспользуйтесь методом Range.Copy или range1.Value=range2.Value. 0