最后一整行不复制到其他工作表

Question

我尝试将最后一整行复制到另一张纸上，但失败了 使用这种方法，它只会将单个单元格复制到所有行

Dim lrow As Long

With Worksheets("101")
    lrow = .Range("B" & .Rows.Count).End(xlUp).Row
    .Range("B" & lrow - 1, "M" & lrow).Copy
    Worksheets("EOM").Range("B4").PasteSpecial xlPasteAll
End With

这段代码会报错

Dim shRead As Worksheet
Set shRead = ThisWorkbook.Worksheets("101")

Dim lastRow As Long, lastCol As Long
lastRow = shRead.Cells(shRead.Rows.Count, 2).End(xlUp).Row
lastCol = shRead.Cells(lastRow, shRead.Columns.Count).End(xlToLeft).Column

With shRead
    shRead.Range(lastRow, lastCol).Copy_
      Worksheets("EOM").Range(B4, M4)
End With

错误

shRead.Range(lastRow, lastCol).Copy_

Answer 1

代替你的代码

With shRead
  shRead.Range(lastRow, lastCol).Copy_
  Worksheets("EOM").Range(B4, M4)
End With

你必须为一个范围放置开始和结束单元格

With shRead
    .Range(.Cells(lastRow, 1), .Cells(lastRow, lastCol)).Copy Worksheets("EOM").Range("B4")
End With

对于目的地，单元格引用应该用双引号引起来

编辑

您可以使用类似于下面的代码；要从所有工作表中获取数据，需要循环，您可以根据您的要求修改代码

Dim i As Integer 
i = 4

For Each ws In ActiveWorkbook.Worksheets 
    With ws
        lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
        lastCol = .Cells(lastRow, .Columns.Count).End(xlToLeft).Column

        .Range(.Cells(lastRow, 1), .Cells(lastRow, lastCol)).Copy Worksheets("EOM").Range("B" & i)
         i = i + 1
     End With
 Next