Исправить Макрос

[cfkhellboy1992]

Option Explicit

Sub getTable(rngFull As Range, rngOutput As Range, lngStart As Long, lngEnd As Long)
Dim rngRow As Range
Dim rngSize As Range
Dim lngSize As Long

For Each rngRow In rngFull.Rows
lngSize = 35
For Each rngSize In Range(rngRow.Cells(1, lngStart), rngRow.Cells(1, lngEnd))
If rngSize Like "*#*" Then
Range(rngRow.Cells(1, 1), rngRow.Cells(1, lngStart - 1)).Copy rngOutput
rngOutput(1, lngStart - 2) = rngSize
rngOutput(1, lngStart - 1) = lngSize
lngSize = lngSize + 1
Set rngOutput = rngOutput(2, 1)
End If
Next rngSize
Next
End Sub
Sub main()
Call getTable([a2:v3], [a6], 12, 22)
End Sub

макрос работает но обрабатывается первые две строки.Как сделать чтоб проходил по всем строкам и удалял исходные оставляя толкьо результат?


____
код нужно форматировать тегами!
Модератор

[alex77755]

Какой диапазон передаёшь в процедуру тот и обрабатывается
[a2:v3]
Передавай нужный

[cfkhellboy1992]

Sub main()
Call getTable([a2:a10000], [a6], 12, 22)
End Sub
как указать запись результата на другой лист или в пустую ячейку а не в a6?

[cfkhellboy1992]

Sub main()
Call getTable([a2:a10000], [a6], 12, 22)
End Sub
как указать запись результата на другой лист или в пустую ячейку а не в a6?

[alex77755]

А если самому просто посмотреть на аргумены?!
Ничего не наталкивает на идеи?
Call getTable([a2:a10000], [a6], 12, 22)
как указать запись результата на другой лист или в пустую ячейку а не в a6?

[Sclif666]

cfkhellboy1992, Руслану.zip - пустой архив?
alex77755 - привет от Апостроффа.