StrapusCactus

Sub ShiftUpEmptyCells()
    Dim List As Worksheet
    
    Set List = Excel.ActiveWorkbook.Worksheets("list")
    
    ' Пробегаем столбец "A" с конца и ищем первую непустую строку
    For I = Rows.Count To 1 Step -1
        If Not IsEmpty(List.Cells(I, 1)) Then
            ' Продолжаем пробегать от найденной, но уже удаляя пустые ячейки со сдвигом вверх
            For J = I To 1 Step -1
                If IsEmpty(Cells(J, 1)) Then
                    Cells(J, 1).Delete shift:=xlUp
                End If
            Next J
            Exit For
        End If
    Next I
End Sub

3 тоже есть, так что правильный ответ 3. Ошибка тройная.

for(size_t z = 0; z < b.length(); z++){
        if(a.find(b[z]) != std::string::npos){

1. Индексы строк в STL беззнаковые, и компилятор может ругаться на сравнение знакового целого и беззнакового.
2. На что тут 4, если есть s.length()
3. Знак «не найдено» — std::string::npos.