颜色用户定义的选定单元格并将文本添加到 Excel VBA 中选择的最后一个单元格

Question

我想在 Excel 中为用户定义的选择着色，然后在选择的最后一个单元格中添加一个文本条目。

到目前为止，我有选择但排序但在文本输入上挣扎。

Dim Cell As Object
Sheets("Jobs").Activate
For Each Cell In Selection
Cell.Interior.Color = RGB(255, 192, 0)
Next Cell

Answer 1

您可以在每个循环上设置一个范围 object ，这将在它完成时成为最后一个......

Dim Cell As Range, objLastCell As Range

Sheets("Jobs").Activate

For Each Cell In Selection
    Cell.Interior.Color = RGB(255, 192, 0)
    Set objLastCell = Cell
Next Cell

objLastCell.Value = InputBox("Enter some text and I'll throw it in cell " & objLastCell.Address & " ...", "Enter Text")

……反正是这样的。

此外，这假定最后一个单元格是最后一个选定的单元格，而不是选择中的最后一个（即右下角）单元格。