根据另一个单元格中的条件将单元格从一张纸复制到另一张纸

2 回答

• 0

  这应该适合你：

  For Counter = 1 To 10 
      If Sheets(1).Range("A" & Counter).Value = Sheets(2).Range("A" & Counter).Value Then
          Sheets(2).Range("B" & (Counter + 1)).Value = Sheets(1).Range("B" & Counter).Value
      End If
  Next Counter
  

  回复于 2024-04-20T08:55:10+08:00
• 0

  Sub copyToSheet()
  For i = 1 To 10
      If ThisWorkbook.Worksheets("sheet1").Range("A1").Offset(i - 1, 0).Value = ThisWorkbook.Worksheets("sheet2").Range("A1").Offset(i - 1, 0).Value Then
      ThisWorkbook.Worksheets("sheet2").Range("A1").Offset(i - 1, 1) = ThisWorkbook.Worksheets("sheet1").Range("A1").Offset(i - 1, 0).Value
      End If
      Next i
  End Sub
  

  回复于 2024-04-20T08:55:10+08:00