Блог

Мне нужно переместить значение ячейки в правые 3 столбца и выделить эту ячейку в процессе.

Я могу перемещать содержимое ячеек по 3 столбцам, используя приведенную ниже формулу:

 With Sheets("Sheet1").Cells(22, lastColAmt).MergeArea: .Cut .Offset(0, 3):
End With
 

Я установил lastColAmt равным последнему использованному столбцу в этой строке.

Однако я не могу понять, как выделить эту ячейку (либо до перемещения, а затем перемещения со значением ячейки и выделения, либо после перемещения в новую ячейку, на расстоянии трех столбцов, но в той же строке).

Я пытался просто добавить «.Интерьер.Color = 65535» или пытаюсь выбрать эту ячейку, используя другую формулу, но ничего, что я пытаюсь, не перемещает как значение ячейки, так и выделение. Кто-нибудь знает, как я могу это сделать?

Спасибо!

Вы пробовали Sheets("Sheet1").Cells(22, lastColAmt).Interior.Color = 65535 строку перед With ? Это сработало для меня.