时间戳

首页 > 解决方案 > 将工作表 1 的最后一行复制到工作表 2 上的行数

vba - 将工作表 1 的最后一行复制到工作表 2 上的行数

问题描述

我正在尝试复制每次更改的工作表 1 的最后一行，减少工作表 2 上的行数。我在 sheet1 的最后一行有公式，并希望将它们保留下来。

下面是我的代码，我在其中选择要复制的最后一行，但我不能让它减少 sheet2 上的行数。

我需要复制 sheet1 上的最后一行（宏将公式放入其中）。然后我需要将最后一行复制到 sheet2 上的行数。Sheet2 数据是从 A2 到 sheet2 的最后一行。

Sheets("2018").Activate

Dim nRow As Long, nColumn As Long

nRow = Cells(Rows.Count, "A").End(xlUp).Row

nColumn = Cells(nRow, Columns.Count).End(xlToLeft).Column

Range(Cells(nRow, "A"), Cells(nRow, nColumn)).Select

Set lastrow = Range(Cells(nRow, "A"), Cells(nRow, nColumn))

bottomrow = Sheets("Needs_Assignment").Cells(Rows.Count, "A").End(xlUp).Row

Range(lastrow).AutoFill Destination:=Range(bottomrow), Type:=xlFillDefault

谢谢

标签： vbaexcel

解决方案

在最近的一个项目中，以下内容对我有用（在第 1 行中复制 B 到 ZZ 列的公式），因此期望非常相似的模式适用于您的场景：

     Dim wrkMyWorkBook As Workbook
     'Set wrkMyWorkBook = ' Set this to a valid value 

     Dim LR As Long
     LR = wrkMyWorkBook.Sheets("Target Sheet").Cells(Rows.Count, 1).End(xlUp).Row 
     wrkMyWorkBook.Sheets("Target Sheet").Range("B1:ZZ1").AutoFill Destination:=wrkMyWorkBook.Sheets("Target Sheet").Range("B1:ZZ" & LR)

推荐阅读