VBA Excel 无法将最后一行的值复制到另一个工作表答案

【问题标题】：VBA Excel can't copy value from the Last Row to other worksheetVBA Excel 无法将最后一行的值复制到另一个工作表
【发布时间】：2022-12-19 23:11:39
【问题描述】：

我有这样的情况：

 Sub AutoSum()
     Dim Sumcalc As Double
     Dim LR As Long
     Dim Sm As Range

     Range("E" & Cells(Rows.Count, "E").End(xlUp).Row + 1).Value = _
      WorksheetFunction.Sum(Range("E2:E" & Cells(Rows.Count, "A").End(xlUp).Row))
    
    LR = Range("E:E").SpecialCells(xlCellTypeLastCell).Row
    Range("E" & LR).Select
    Selection.Copy
    ThisWorkbook.Worksheets("Test").Range("I1").PasteSpecial xlPasteValues

而且我无法将最后一行的值复制到另一个工作表。它返回一个空白单元格。如何将最后一行的值复制到其他工作表中的单元格？

【问题讨论】：

标签： excel vba

【解决方案1】：

xlCellTypeLastCell 不一定给出包含数据的最后一个单元格（例如可以是具有某种格式的最后一行）。您在两行之前使用了另一种技术 - 为什么不将其写入变量并重新使用它？

看看下面的 sn-p。

With ActiveSheet
    Dim lastRow As Long
    lastRow = .Cells(.Rows.Count, "E").End(xlUp).row
    .Range("E" & lastRow + 1).Value = WorksheetFunction.Sum(Range("E2:E" & lastRow + 1))
    
    ThisWorkbook.Worksheets("Test").Range("I1").Value = .Range("E" & lastRow + 1).Value
End With

【讨论】：