Или всё таки виноград

Question

' Закрываем файл &#34;раз&#34; без сохранения изменений  
 
    sourceWb.Close False

' Присваиваем n значение количества ячеек  
 
    n = countCells

' Ветвим логику на основе значения n  
 
    If n = 0 Then  
 
        resultText = &#34;За прошедшую неделю нет данных&#34;  
 
    ElseIf n = 1 Then  
 
        resultText = &#34;За прошедшую неделю&#34; & _  
 
                     &#34;получена &#34; & n & &#34; претензия&#34; & vbCrLf & _  
 
                     block1Text ' Добавляем блок для одной строки  
 
    ElseIf n > 1 Then  
 
        resultText = &#34;За прошедшую неделю&#34; & _  
 
                     &#34;получены &#34; & n & &#34; претензии&#34; & vbCrLf & _  
 
                     block1Text ' Добавляем блок для всех строк  
 
    End If

' Записываем результат в ячейку C4 основного файла  
 
    Set ws = ThisWorkbook.Sheets(&#34;Sheet1&#34;) ' Укажите правильное название листа  
 
    ws.Range(&#34;C4&#34;).Value = resultText  
 
End Sub

Тренер Мозгов · Answer

сцука! Умный очень?
Завидую тем, кто понимает твой язык, но сам не хочу забивать себе голову, т.к. есть такие, как ты!
... Поэтому лучше не виноград, а бабы!