Как поменять местами ячейки с формулами на большом диапазоне ?

Пользователь

Сообщений: 25 Регистрация: 21.01.2013

20.02.2013 14:17:59

Добрый день, вопрос можно ли зделать , чтобы ячейки с формулами =RC[-2] поменялись местами с верхней желтой ячейкой (тоесть в верхней стала формула , а нижняя стала желтой). В рабочем файле таких ячеек в диапозоне около 3000 и на 3 листах.

Прикрепленные файлы

Лист Microsoft Excel.xlsx (11.75 КБ)

С уважением, Павел.

ber$erk

Пользователь

Сообщений: 2735 Регистрация: 25.12.2012

20.02.2013 14:44:54

Код

Sub DoSomething()
    Dim i&
    
    For i = 5 To 27
        If Cells(i, 15).FormulaR1C1 = "=RC[-2]" Then
            Cells(i, 15).Cut
            If Cells(i - 1, 15).Interior.Color = 65535 Then
                Cells(i - 1, 15).Insert Shift:=xlDown
            Else
                Cells(i - 2, 15).Insert Shift:=xlDown
            End If
        End If
    Next i

End Sub

Учимся сами и помогаем другим...

Павел Дуров Пользователь Сообщений: 25 Регистрация: 21.01.2013	#3 20.02.2013 15:45:12 Спасибо за помощь С уважением, Павел.

Читают тему