VBA Excel - 选定行中的最后两个单元格

Question

我有一点问题。我需要将选定行中的最后两个单元格设置为 0。
我是 VBA 的新手，不知道用什么来实现这一点。

这就是我到目前为止所拥有的，它正在工作，只是值是硬编码的(对于单元格)。

Sub SetCellValueToZero()
    Dim r As Range

    For Each r In Selection.Rows
        Cells(r.Row, 3) = "0"
        Cells(r.Row, 2) = "0"
    Next r
End Sub

任何帮助，将不胜感激。

谢谢

Answer 1

Sub SetCellValueToZero()
Dim r As Range
Dim lastCol as Long
For Each r In Selection.Rows
    lastCol = ActiveSheet.Cells(r.row, ActiveSheet.Columns.Count).End(xlToLeft).Column
    Cells(r.Row, lastCol-1) = "0"
    Cells(r.Row, lastCol) = "0"
Next r
End Sub