Добрый день!
Помогите разобраться с Find (Findnext).
Проблема: Find нашел первое искомое, Findnext нашел второе искомое, далее Findnext идет по всем столбцам подряд не могу понять что не так.
Задача: Поиск ищет в заголовках часть слова "сум*", в найденном столбце проделываются определенные операции и так по всем столбцам с содержание в заголовке "сум*".
У меня получается что поиск отрабатывает поиск, а потом идет по все столбцам подряд. Как это исправить?
Спасибо
Помогите разобраться с Find (Findnext).
Проблема: Find нашел первое искомое, Findnext нашел второе искомое, далее Findnext идет по всем столбцам подряд не могу понять что не так.
Задача: Поиск ищет в заголовках часть слова "сум*", в найденном столбце проделываются определенные операции и так по всем столбцам с содержание в заголовке "сум*".
У меня получается что поиск отрабатывает поиск, а потом идет по все столбцам подряд. Как это исправить?
| Код |
|---|
Sub JSht()
Dim myCell As Range, i, L, D, firstAddress As String
Dim wbw As Workbook, ws As Worksheet
Dim range1, cels, range2()
Set wbw = ActiveWorkbook
' For Each ws In wbw.Worksheets
range1 = Range(Cells(3, 2), Cells(Cells(Rows.Count, 2).End(xlUp).Row, Cells(3, Columns.Count).End(xlToLeft).Column)).Select
Selection.Replace What:="", Replacement:="0", LookAt:=xlWhole, SearchOrder:=xlByRows
L = Cells(Rows.Count, 2).End(xlUp).Row
D = Cells(1, Columns.Count).End(xlToLeft).Column
With Rows(2)
Set myCell = .Find("Сумм*", , , xlPart)
If Not myCell Is Nothing Then
firstAddress = myCell.Address
End If
Do
Set myCell = .FindNext(myCell)
If Not myCell.Address = firstAddress Then
Range(Cells(3, myCell.Column), Cells(L, myCell.Column)).Select
Selection.Replace ".", ","
i = 3
For Each cels In Range(Cells(3, myCell.Column), Cells(L, myCell.Column))
If IsNumeric(Cells(i, myCell.Column)) Then
Cells(i, myCell.Column) = CCur(cels)
Selection.NumberFormat = "#,##0.00;#,##0.00;0"
End If
i = i + 1
Next
End If
Loop Until myCell.Address = firstAddress
End With
End Sub |
Спасибо
