Question

我试图复制每次更改的工作表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

谢谢

Answer 1

以下内容在我最近的项目中为我工作（将B到ZZ列的第1行中的公式复制到您的方案中，因此可以预期有非常相似的模式适用于您的情况：

     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)

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

1 个答案: