Тема: VBA: Поиск значения в стобце
Как записать в макрос условие, что если любое значение в столбце (например A1:A1000) больше 3, то в ячейку С1 записать значение ячейки В1
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Как записать в макрос условие, что если любое значение в столбце (например A1:A1000) больше 3, то в ячейку С1 записать значение ячейки В1
Option Explicit
Sub Sample()
Dim objRange As Range
With ThisWorkbook.ActiveSheet
For Each objRange In Intersect(.UsedRange, .Range("A1:A1000"))
If objRange.Value > 3 Then
.Range("C1").Value = .Range("B1").Value
Exit For
End If
Next objRange
End With
End Sub
Для активного Рабочего листа текущей Рабочей книги.
Sub Test()
ActiveCell.FormulaR1C1 = "=IF(COUNTIF(RC[-2]:R[999]C[-2],"">3""),RC[-1],"""")"
End Sub
=ЕСЛИ(СЧЁТЕСЛИ(A1:A1000;">3");B1;"")
Спасибо большоее всем ответившим!
Я попробовал ввести в макрос немного другую формулу и все получилось! Я ввел IIf [MAX(A1:A1000)] > 3 Then ... и дальше код макроса
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться