如何在Excel工作表中输入固定数量的条目

1 回答

• 0

  请试试这个代码 . 它不是optymalizing，但在这种情况下没有必要：

  Sub copyer()
  counter = 1
  For i = 1 To 500 Step 1
      Range("A" & i).copy
  Sheets("Sheet2").Range("A" & counter).PasteSpecial xlPasteValues
  counter = counter + 1
  Next i
  
  counter = 1
  For i = 501 To 1000 Step 1
      Range("A" & i).copy
  Sheets("Sheet3").Range("A" & counter).PasteSpecial xlPasteValues
  counter = counter + 1
  Next i
  
  counter = 1
  For i = 1000 To 1500 Step 1
      Range("A" & i).copy
  Sheets("Sheet4").Range("A" & counter).PasteSpecial xlPasteValues
  counter = counter + 1
  Next i
  
  End Sub
  

  回复于 2024-05-09T19:44:26+08:00