как правильно завершить цикл?

[Bape}l{ka]

Hugo121, ааа..

ну все равно эта строка не хочет работать.. object or... not defined

[IgorGO]

писал здесь не открывая ексель... вот и написал))
исправил, проверил на Вашем примере, работает.

Sub aaaaaaa()
Dim r As Integer, c As Integer
  Call Subs_.DefinitionSelectionRowCol 'ActiveWorkbook.ActiveSheet.
  For r = FirstRow To MaxRow
    c = Range(Cells(r, FirstCol), Cells(r, MaxCol)).SpecialCells(4).Cells.Count
    If c > 0 Then Cells(r, MaxCol + 1).Resize(1, c).Insert Shift:=xlToRight
  Next
  Range(Cells(FirstRow, FirstCol), Cells(MaxRow, MaxCol)).SpecialCells(4).Delete Shift:=xlToLeft
End Sub

[Bape}l{ka]

люди ,если не трудно, тестите в примере ваши решения, я его выложила тремя постами выше...

IgorGO, теперь вообще глобальная ошибка О_о я таких даже не встречала

Range(r, MaxCol + 1).Resize(1, c).Insert Shift:=xlToRight

[IgorGO]

Глобальная ошибка здесь - это я.
а в коде было две локальных (опечатки)

[Bape}l{ka]

спасибо всем большое !!! урраа!!

IgorGO, оно работает!!! )))))))))

фух.. /утерла пот со лба

[Bape}l{ka]

хм.. IgorGO, вы просто объявили переменные, или там еще что-то было? я вроде ничего больше не вижу..
а я тоже пробовала объявлять, но подумала, что с это Range =ь
_________________________________

п.с.: ну собственно жаль, что мое решение никак не подправили, т.к. тоже вроде ничего на фоне смотрится =ь
И все-таки я не понимаю, почему при Exit For выходит не из одного цикла, не из всех трех, а только из двух! где логика??

[R Dmitry]

dim i&,j&,x&, a as boolean,b as boolean
for i=1 to 10

  for j=1 to 10
       for x=1 to 10
            if x=5 then a=true:exit for
       next
       if a then b=true:exit for
   next
    if b then exit for  
next

Варежка, для выхода из всех циклов можно использовать такой подход

[EducatedFool]

для выхода из всех циклов можно использовать такой подход

В данном случае, правильнее использовать Goto
(это один из немногих случаев, где использование данного оператора обосновано)

Sub test()
    Dim i&, j&, x&, a As Boolean, b As Boolean
    For i = 1 To 10
        For j = 1 To 10
            For x = 1 To 10
                If x = 5 Then GoTo КонецЦикла
            Next
        Next
    Next
КонецЦикла:
    Debug.Print i, j, x
End Sub

[Bape}l{ka]

нет, мне как раз надо было, чтоб выходило только из самого внутреннего цикла (у меня всего один exit for), но почему-то останавливалось 2 внутренних цикла, а третий, внешний, продолжал работать... надо еще посидеть подумать, может я что-то просто не уловила =ь

R Dmitry, EducatedFool, спасибо за подсказки)

[slan]

варежка, в вашем коде нужно поправить :

   For Roww = FirstRow To MaxRow
        Set rng = Range(Cells(Roww, FirstCol), Cells(Roww, MaxCol))
        For Each iCell In rng
            If Not IsEmpty(iCell) Then
                For Each x In rng
                    If IsEmpty(x) Then
                        x.Value = iCell.Value
                        iCell.Value = ""
                        Exit For
                    End If
                Next x
            End If
        Next iCell
    Next Roww

в принципе, еще есть что править, но это минимум

ps пустую ячейку слева от текущей можно и так найти:

icell.end(xltoleft).offset(,1)

правда все равно надо проверить пуста ли она..