VBA как указать пустую ячейку?

[Onni]

имеется код

Sub Êíîïêà2_Ùåë÷îê()

Dim n As Integer
Dim g As Integer

g = 1
n = 1

Do While Ëèñò1.Cells(n, 1) <> ""                               (*)
    
    g = n
    Do
        If Ëèñò1.Cells(n, 1) = Ëèñò1.Cells(g, 2) Then
        Ëèñò1.Cells(n, 5) = Ëèñò1.Cells(g, 3)
        GoTo Flag
        Else: Ëèñò1.Cells(n, 5) = 0
        End If
    g = g + 1
    Loop Until Ëèñò1.Cells(g, 2) <> ""                        (**)
Flag:
n = n + 1
Loop

End Sub

как задать в строке * и ** что ячейка должна быть пустой?
Вообще код правильный, несет хоть какой нибудь смысл?

[EducatedFool]

Код несёт какой-то смысл)
Вот если бы вы сказали, что вам всё-таки нужно, и прикрепили пример файла,
мы бы предложили вам куда более быстрый и понятный код.

В вашем же случае, скорее всего, надо заменить <> на = в строке

Loop Until Ëèñò1.Cells(g, 2) <> ""

[Onni]

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

Код несёт какой-то смысл)
Вот если бы вы сказали, что вам всё-таки нужно, и прикрепили пример файла,
мы бы предложили вам куда более быстрый и понятный код.

В вашем же случае, скорее всего, надо заменить <> на = в строке

Loop Until Ëèñò1.Cells(g, 2) <> ""

Ну радует что хоть он какой то смысл несет)

Заменила, не получается. Как вообще можно указать в условии что ячейка пустая?

[VictorM]

Как вообще можно указать в условии что ячейка пустая?

ну наверное так
IsEmpty(cell)
или
SpecialCells(xlBlanks)
вот здесь еще посмотрите Как определить пустая или нет ячейка

[alex77755]

Можно пойти по другому пути: сначала определить посленюю занятую строку столбца(Cells(Rows.Count, 1).End(xlUp).Row), а потом: For Next

[Onni]

У меня не получается даже с вашими советами.
Кому не сложно посмотрите пожалуйста ещё раз....

Sub Êíîïêà2_Ùåë÷îê()

Dim n As Integer
Dim g As Integer

g = 2
n = 2

Do While IsEmpty(Cells(n, 1)) = True
    
    g = n
    Do
        If Data.Cells(n, 1) = Data.Cells(g, 2) Then
        Data.Cells(n, 5) = Data.Cells(g, 3)
        GoTo Flag
        Else: Data.Cells(n, 5) = 0
        End If
    g = g + 1
    Loop Until IsEmpty(Cells(g, 1)) = True
Flag:
n = n + 1
Loop

End Sub

Задание в след. :Нужно написать макрос который выполнял бы задачу: имеется столбцы A,B - они заполнены датами. далее С и Е. Е пустой, С заполнен. Нужно сравнить А с В так что если для ячейки А имеется равная в В, то Е=С(для строки в которой находиться сравниваемая ячейка А), а если нет то Е=0.
Проблема в том что в А значений больше чем в В. Я хотела условие цикла поставить как пустую ячейку, но чтобы я не ставила либо получается ошибка либо после первого же while - а работа заканчивается.

[Hugo121]

Чувствую, можно сделать быстро на словаре/коллекции и массивах, но без примера делать - дело не благодарное в большинстве случаев...

[VictorM]

имеется столбцы A,B - они заполнены датами. далее С и Е. Е пустой,

А может лучше сам этот файлик, с "заполненными датами" выложите?
А то опять не так будет, или даты не те, или столбцы или еще что...
Бывало уже

[Onni]

только вы потом если подправите, объясните как сделали. и в чем загвоздка была...

[Hugo121]

Sub Кнопка2_Щелчок()
    Dim a(), b(), i&

    a = Range([c2], Range("A" & Rows.Count).End(xlUp)).Value
    ReDim b(1 To UBound(a), 1 To 1)

    With CreateObject("Scripting.Dictionary")
       ' .CompareMode = vbTextCompare 'это тут лишнее, но может пригодиться при сравнении строк

        For i = 1 To UBound(a)
            .Item(a(i, 1)) = a(i, 3)
        Next
        
        For i = 1 To UBound(a)
            b(i, 1) = .Item(a(i, 2))
        Next

        [e2].Resize(UBound(b)) = b

    End With

End Sub

Нули не вписывал - это можно сперва одним проходом по массиву сделать, но зачем?
Процентный формат тоже кодом не ставится - но можно добавить.
Пояснения нужны? Вроде даже пояснять нечего - см. помощь по словарям.
Или вот, рекомендую: http://www.excelworld.ru/forum/3-313-1


P.S. Кажется, условия перепутал - тогда так:

        For i = 1 To UBound(a)
            .Item(a(i, 2)) = a(i, 3)
        Next
        
        For i = 1 To UBound(a)
            b(i, 1) = .Item(a(i, 1))
        Next

или вариант 3:

        For i = 1 To UBound(a)
            .Item(a(i, 2)) = 1
        Next
        
        For i = 1 To UBound(a)
        If .exists(a(i, 1)) Then b(i, 1) = a(i, 3)
        Next

Кажется, правильно должно быть 3 ...