Как перебирать строки до тех пор, пока в Excel не будет найдено определенное значение?
В некоторых случаях вам может потребоваться перебирать строки одну за другой, пока на листе не будет найдено определенное значение. Здесь я представляю код макроса, который поможет вам зацикливать данные, пока не будет достигнуто определенное значение.
Прокрутите до определенного значения
Прокрутите до определенного значения
1. Нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложенийокно s.
2. Нажмите Вставить > Модуливставьте код ниже в пустое поле Модули.
VBA: перебирать строки до определенного значения
Sub LoopUntilSpecificValue()
'UpdatebyExtendoffice20161222
Dim fStr As String
Dim strActAddress As String
Dim fbool As Boolean
Dim cnt As Long, cntRow As Long
Dim xRg As Range, yRg As Range, zRg As Range
fbool = False
strActAddress = ""
cnt = 0
On Error Resume Next
Set zRg = ActiveSheet.UsedRange
cntRow = zRg.Rows.Count
Set xRg = Application.InputBox _
(Prompt:="Range select..", Title:="Kutools for Excel", Type:=8)
fStr = Application.InputBox _
(Prompt:="Search string?", Title:="Kutools for Excel", Type:=2)
Application.ScreenUpdating = False
For Each yRg In xRg
If yRg.Row > cntRow Then
MsgBox "Value not found ", vbInformation, "Kutools for Excel"
Application.ScreenUpdating = True
Exit Sub
End If
If yRg.Value2 = fStr Then
Application.ScreenUpdating = True
yRg.Activate
fbool = True
strActAddress = yRg.Address
MsgBox "Value found in cell " & strActAddress, vbInformation, "Kutools for Excel"
Exit Sub
Else
cnt = cnt + 1
End If
Next yRg
If cnt = xRg.Count Then
MsgBox "Value not found ", vbInformation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
3. Нажмите F5 , появится диалоговое окно для выбора столбца для циклического просмотра. Смотрите скриншот:
4. Нажмите OK, и введите строку, которую хотите найти, во втором появившемся диалоговом окне. Смотрите скриншот:
5. Щелкните ОК. Он будет выполнять цикл выбора, пока не будет найдено указанное значение.
Внимание: если не найдено ни одного согласованного значения, появляется диалоговое окно, напоминающее вам, что ни одно совпадающее значение не найдено.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
