|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.10.2014, 10:54 | #1 |
Регистрация: 24.09.2014
Сообщений: 8
|
добавить на третий лист еще одну колонку
этот макрос копирует на третий лист не совпадающие строки 2-ого столбца, а надо чтобы он копировал 2 и 3 столбцы, совпадения искал по второму, но копировал 2 и 3. Помогите, пожалуйста!
Sub сортировка() Dim temp, temph Dim source_ As Object, target_ As Object, tocopy_ As Object, x As Range Dim iFirstAddress$, blank_cell As Range Dim cc As Range Set source_ = Sheets(2) Set target_ = Sheets(1) Set tocopy_ = Sheets(3) For Each cc In source_.UsedRange.Columns(2).Cells temp = cc.Value temph = source_.Cells(cc.Row, 5).Value If temp <> "" Then Set x = target_.Columns(2).Find(temp, LookIn:=xlValues, lookat:=xlPart, MatchCase:=True) If Not x Is Nothing Then iFirstAddress = x.Address Do Set x = target_.Columns(2).FindNext(x) If target_.Cells(x.Row, 3).Value <> temph Then Set blank_cell = tocopy_.Cells(tocopy_.Range("a" & Rows.Count).End(xlUp).Row + 1, 1) source_.Cells(cc.Row, 2).Copy blank_cell End If Loop While Not x Is Nothing And x.Address <> iFirstAddress Else Set blank_cell = tocopy_.Cells(tocopy_.Range("a" & Rows.Count).End(xlUp).Row + 1, 1) source_.Cells(cc.Row, 2).Copy blank_cell blank_cell.Offset(0, 2).Value = "не найдено" End If End If Next MsgBox "готово!" End Sub |
05.10.2014, 20:15 | #2 |
Регистрация: 05.10.2014
Сообщений: 7
|
попробуйте так
Код:
|
06.10.2014, 14:13 | #3 |
Регистрация: 24.09.2014
Сообщений: 8
|
работает неправильно, может подскажите как мой доделать, чтобы копировал вместе со значением 2 столбца, еще и значение 3 столбца той же строки.
мой макрос работает. только мне надо добавить копирование значения из 3 столбца, к той ячейке из 2 столбца которая не совпадает. |
06.10.2014, 14:24 | #4 |
Форумчанин
Регистрация: 24.02.2012
Сообщений: 160
|
Попробуйте
Код:
Код:
|
06.10.2014, 14:46 | #5 |
Регистрация: 05.10.2014
Сообщений: 7
|
а что неправильно работает?
|
06.10.2014, 16:05 | #6 |
Регистрация: 24.09.2014
Сообщений: 8
|
Sham66 Спасибо!!!!!!!! Работает))
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Добавить колонку в калькуляции | mr_zhorik | Microsoft Office Access | 4 | 15.11.2012 16:06 |
Office xp - не могу выделить одну колонку | Kreadlling | Microsoft Office Word | 3 | 25.05.2011 22:31 |
Как добавить еще одну GET переменную к заголовку HTML страницы? | Лицемер | Помощь студентам | 0 | 04.04.2011 12:45 |
Добавить колонку | Turbine | БД в Delphi | 0 | 20.03.2011 21:07 |
добавить колонку для меню | Screame | HTML и CSS | 5 | 26.11.2010 23:24 |