Excel VBA:如何将包含数据的最后一列与前一列相乘？

Sub MultiplyLastColumnWithPreviousColumn()
    Dim lastRow As Long
    Dim lastColumn As Long
    Dim rng As Range
    Dim cell As Range
    
    ' 获取最后一行和最后一列的索引
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    lastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
    
    ' 获取包含数据的范围
    Set rng = Range(Cells(1, lastColumn - 1), Cells(lastRow, lastColumn))
    
    ' 循环遍历每个单元格，将其与前一列相乘
    For Each cell In rng
        cell.Value = cell.Value * cell.Offset(0, -1).Value
    Next cell
End Sub