Из двух столбцов(А,В) в столбец (С)

[Leha33]

Доброго времени суток господа программисты. Помогите пожалуйста чайнику. Имеется книга Excel, в ней два столбца, в первом номер накладной, во втором номер оплаченной накладной. Нужно выбрать из первого столбца не оплаченные накладные и скопировать в третий столбец. Как это можно реализовать (если возможно формулу или код макроса). Заранее благодарен.

[staniiislav]

можно так, в столбце С2 пишите формулу:
=ЕСЛИ(B2>0;"оплачено";A2)
Растягиваете до необходимого количества строк.

[SAS888]

Можно выполнить такой макрос:

Sub Main()
    Dim x As Range, i As Long, j As Long, a(), b(): Application.ScreenUpdating = False
    a = Range([A1], Cells(Rows.Count, 1).End(xlUp)).Value
    ReDim b(1 To UBound(a, 1), 1 To 1): j = 1
    For i = 1 To UBound(a, 1)
        Set x = [B:B].Find(what:=a(i, 1), LookAt:=xlWhole)
        If x Is Nothing Then
            b(j, 1) = a(i, 1): j = j + 1
    End If: Next: [C1].Resize(UBound(b, 1), 1).Value = b
End Sub

Пример во вложении. Откройте файл. Запустите макрос "Main".

[Leha33]

Сообщение от SAS888

Можно выполнить такой макрос:

Sub Main()
    Dim x As Range, i As Long, j As Long, a(), b(): Application.ScreenUpdating = False
    a = Range([A1], Cells(Rows.Count, 1).End(xlUp)).Value
    ReDim b(1 To UBound(a, 1), 1 To 1): j = 1
    For i = 1 To UBound(a, 1)
        Set x = [B:B].Find(what:=a(i, 1), LookAt:=xlWhole)
        If x Is Nothing Then
            b(j, 1) = a(i, 1): j = j + 1
    End If: Next: [C1].Resize(UBound(b, 1), 1).Value = b
End Sub

Пример во вложении. Откройте файл. Запустите макрос "Main".

Спасибо огромное, то что надо.