VBA Если условие с .TintAndShade

Question

Что будет выглядеть код VBA, если я хочу поместить значение ячейки из одной строки ниже в ячейку выше, только если вышеуказанная ячейка для ex.

.TintAndShade = 0.799981688894314 

мой код не будет работать:

Sub Macro1() 
If ActiveCell.Interior.TintAndShade = 0.799981688894314 Then 
    ActiveCell.Offset(1, 0).Range("A1").Select 
    Selection.Copy 
    ActiveCell.Offset(-1, 0).Range("A1").Select 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 
End If 
End Sub 

Answer 1

Ваш код не имеет петлю. Это позволит вам обрабатывать каждую строку отдельно. Я использовал FOR...NEXT, но вы также можете использовать WHILE или DO. Каждый из них позволяет вам повторять действие столько раз, сколько требуется. FORs хороши для заданного количества итераций. DO и WHILE полезны, когда есть условие выхода для проверки.

Sub Macro1() 
Const COLUMN As Integer = 1   ' 1 for A, 2 for B, etc. 
Dim row As Integer 


    ' Will process the first hundred rows of column A. 
    For row = 1 To 100 

     If ActiveSheet.Cells(row, COLUMN).Interior.TintAndShade = 0.799981688894314 Then 

      ActiveSheet.Cells(row, COLUMN).Value = ActiveSheet.Cells(row + 1, COLUMN).Value 
     End If 
    Next 
End Sub 

Этот код в порядке, но это может быть лучше. Количество строк, которые нужно перебрать, в настоящее время жестко закодировано. Один из способов улучшить это - использовать объект UsedRange для вычисления количества требуемых строк.