excel VB 將單元格從工作表復制到另一個

Question

我的代碼有問題我希望此代碼將單元格從一張紙復制到另一張紙，但使用以下技巧（英語不是我的第一語言，抱歉）

在“sheet1”中，“日期和票號”總是在同一個單元格中，但我也想復制一個可以改變數量的值列表......（A10）所有這些值都轉到“sheet2”中行...“date1”“ticket123”“itemA”“amount”“date1”“ticket123”“itemB”“amount2”

Private Sub CommandButton1_Click()

filalibre = Sheets("sheet2").Range("a1048576").End(xlUp).Row + 1
ActiveSheet.Range("a10").Select
fila = 10

While ActiveCell.Value <> ""
Sheets("sheet2").Cells(filalibre, 1) = ActiveSheet.Range("E4") 
Sheets("sheet2").Cells(filalibre, 2) = ActiveSheet.Range("E2") 

Sheets("sheet2").Cells(filalibre, 3) = ActiveSheet.Offset(0, 0) 
Sheets("sheet2").Cells(filalibre, 4) = ActiveSheet.Offset(0, 1) 


filalibre = filalibre + 1

ActiveCell.Offset(1, 0).Select
Wend
Call limpieza
End Sub

我可以閱讀什么來解決這個問題......或者任何人都可以幫助我

Answer 1

由於您沒有提到確切的問題或您看到的錯誤，我可以看到問題的一些可能來源。

代替

Sheets("sheet2").Cells(filalibre, 3) = ActiveSheet.Offset(0, 0) 
Sheets("sheet2").Cells(filalibre, 4) = ActiveSheet.Offset(0, 1)

經過

Sheets("sheet2").Cells(filalibre, 3) = ActiveCell.Offset(0, 0) 
Sheets("sheet2").Cells(filalibre, 4) = ActiveCell.Offset(0, 1)

除此之外，還有一些其他改進可以對您的代碼進行。 但首先嘗試讓它正常工作而不會出錯。