скопировать, удалить, добавить, выделить - Microsoft Office Excel

Verbludov · 18.10.2011, 10:17

детально во вложении

Verbludov · 18.10.2011, 12:55

ээээээээээээээхххххххх!!!

kuklp · 18.10.2011, 13:59

Код:

Public Sub www()
    Dim i&
    With Sheets("ввод").[a14].CurrentRegion
        For i = 1 To 3
            Intersect(.Offset(1), Columns(i + 7)).AutoFilter 1, "<>", , , 0
            Intersect(Union([A:G], Columns(i + 7)), .Offset(2)).SpecialCells(12).Copy Sheets("объект " & i).[a3]
            Cells.AutoFilter
        Next
    End With
End Sub

А чего там добавлять-удалять я нифига(как наверное и все остальные, судя по шквалу ответов) не понял. Это уж без меня.

Verbludov · 18.10.2011, 14:46

спасибо тебе огромное, дружище....ты все правильно понял

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Label Как мышой выделить и скопировать текст	badayal	Microsoft Office Excel	1	25.04.2011 17:52
Stringgrid как выделить несколько ячеек, скопировать и вставить.	tarakan1983	Общие вопросы Delphi	0	15.09.2010 10:27
Добавить/Удалить запись из TStrings	Shouldercannon	Общие вопросы Delphi	3	22.07.2010 01:59
добавить/удалить элемент	Revenholm	Общие вопросы C/C++	3	13.06.2009 17:17
C#: Добавить, Изменить и удалить строку в бд	Veiron	Общие вопросы .NET	1	10.06.2009 09:25

18.10.2011, 12:55	#2
Verbludov Пользователь Регистрация: 20.10.2009 Сообщений: 30	ээээээээээээээхххххххх!!!

18.10.2011, 14:46	#4
Verbludov Пользователь Регистрация: 20.10.2009 Сообщений: 30	спасибо тебе огромное, дружище....ты все правильно понял