如何使用 VBA 突出显示一个单元格并将该单元格移动到 3 列？

Question

我需要将一个单元格值向右移动 3 列，并在此过程中突出显示该单元格。

我可以使用以下公式将单元格内容移动到 3 列：

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

我设置 lastColAmt 等于该行中最后使用的列。

但是，我无法弄清楚如何突出显示此单元格（在移动然后移动单元格值并突出显示之前或在移动到新单元格之后，三列相距但在同一行中）。

我尝试添加“.Interior.Color = 65535”或尝试使用另一个公式选择此单元格，但我没有尝试移动单元格值和突出显示。有谁知道我该怎么做？

谢谢！

Answer 1

你试过Sheets("Sheet1").Cells(22, lastColAmt).Interior.Color = 65535 With 之前的那一行吗？这对我有用。