将多个工作表中的同一行复制到excel中的一个工作表中

2 回答

• 0

  此代码将 7th 行从所有 first 5 sheets 复制到 6th 表 .

  Sub row_copy()
  
  For i = 1 To Worksheets.Count - 1
  
  Sheets(i).Rows(7).Copy Sheets(6).Cells(i, 1)
  
  Next i
  
  End Sub
  

  回复于 2024-04-28T08:33:06+08:00
• 0

  以下是 6 表和行＃ 7 的示例：

  Sub copyrow()
      Dim Nrow As Long, Nsheet As Long
      Dim i As Long
  
      Nrow = 7
      Nsheet = 6
  
      For i = 1 To Nsheet - 1
          Sheets(i).Cells(Nrow, 1).EntireRow.Copy Sheets(Nsheet).Cells(i, 1)
      Next i
  End Sub
  

  前5张纸中的第7行将被复制到第6张纸中 .

  回复于 2024-04-28T08:33:06+08:00