Добрый день! Нужна снова помощь специалистов! Смотрим пример: если в столбце C отсутствует значение из столбца A, то оно должно записываться в столбец D, плюс в столбец E должно быть записано значение из ячейки справа (столбец B), т.е. значения столбцов A и B как бы привязаны по строкам. Помогите пожалуйсста решить вопрос...
Добрый день! Нужна снова помощь специалистов! Смотрим пример: если в столбце C отсутствует значение из столбца A, то оно должно записываться в столбец D, плюс в столбец E должно быть записано значение из ячейки справа (столбец B), т.е. значения столбцов A и B как бы привязаны по строкам. Помогите пожалуйсста решить вопрос...Дмитрий87
Sub www() Dim a, b, c(), d(), i&, ii& a = Range([a1], Range("B" & Cells(Rows.Count, 1).End(xlUp).Row)).Value b = Range([c1], Range("C" & Cells(Rows.Count, 3).End(xlUp).Row)).Value ReDim c(1 To UBound(a), 1 To 2) ii = 1 With CreateObject("Scripting.Dictionary") For i = 1 To UBound(b) .Item(b(i, 1)) = i Next For i = 1 To UBound(a) If Not .exists(a(i, 1)) Then c(ii, 1) = a(i, 1) c(ii, 2) = a(i, 2) ii = ii + 1 End If Next End With [d1].Resize(UBound(c), 2) = c End Sub
[/vba]
или так? [vba]
Код
Sub www() Dim a, b, c(), d(), i&, ii& a = Range([a1], Range("B" & Cells(Rows.Count, 1).End(xlUp).Row)).Value b = Range([c1], Range("C" & Cells(Rows.Count, 3).End(xlUp).Row)).Value ReDim c(1 To UBound(a), 1 To 2) ii = 1 With CreateObject("Scripting.Dictionary") For i = 1 To UBound(b) .Item(b(i, 1)) = i Next For i = 1 To UBound(a) If Not .exists(a(i, 1)) Then c(ii, 1) = a(i, 1) c(ii, 2) = a(i, 2) ii = ii + 1 End If Next End With [d1].Resize(UBound(c), 2) = c End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
