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

06.06.2011, 09:34. **Показов** 2228. **Ответов** 4

Подскажите, как скопировать строки из одного файла в другой файл, в которых в столбце С значение ячейки равно 5

@Димит · 07.06.2011, 11:34

Для старта можно так

Visual Basic

Dim Mx As Long, i As Long
Dim Rg As Range
Mx = Cells(1, 3).End(xlDown).Row
Set Rg = Rows(1)
For i = 1 To Mx
    If Cells(i, 3) = 5 Then
        Set Rg = Union(Rg, Rows(i))
    End If
Next
Rg.Copy Workbooks("2.xls").Worksheets("Лист1").Range("A1")

07.06.2011, 16:13

выдаёт ошибку Run-time error "9" Subscript out of range. в таблице 1000 строк ...

@Димит · 08.06.2011, 08:52

Предполагается, что книга 2.xls открыта и в ней есть лист "Лист1"

09.06.2011, 10:33

Спасибо! то что нужно!

serg
		1
	Скопировать все строки из одного файла в другой 06.06.2011, 09:34. Показов 2228. Ответов 4 Метки нет (Все метки) Подскажите, как скопировать строки из одного файла в другой файл, в которых в столбце С значение ячейки равно 5

serg
	07.06.2011, 16:13	3
	выдаёт ошибку Run-time error "9" Subscript out of range. в таблице 1000 строк ...

@Димит 90 / 37 / 14 Регистрация: 03.11.2010 Сообщений: 429
	08.06.2011, 08:52	4
	Предполагается, что книга 2.xls открыта и в ней есть лист "Лист1" 0

serg
	09.06.2011, 10:33	5
	Спасибо! то что нужно!

Опции темы