excel - Excel vba将明细行的最后一行复制到小计行

Question

我运行一个带有小计功能的 vba 脚本。该脚本还将详细信息的最后一行复制到小计行（在非数字行上）。

     With sht
        LastRow = Cells(Rows.Count, "A").End(xlUp).Row
        'Copy comment information to subtotal line
        Range("C2:G2" & LastRow).Offset(-1, 0).Select
        'Range("Z2:AA2" & LastRow).Offset(-1, 0).Select
        Selection.SpecialCells(xlCellTypeBlanks).Select
        Selection.FormulaR1C1 = "=R[-1]C"
     End With

这在其上方有详细数据的行上效果很好。当详细信息行为空时它不起作用 - 它会向上直到找到某些东西并将其复制下来。

TIA。

标签： excelvba