Question

我的代码出了问题我想要这个代码将单元格从一个工作表复制到另一个工作表但是使用以下技巧（英语不是我的第一语言，对不起）

在“sheet1”中，“日期和票号”始终位于同一单元格中，但我还想复制可以更改金额的值列表...（A10）所有这些值都转到同一行的“sheet2”...... “date1”“ticket123”“itemA”“金额” “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)

除此之外，还可以对您的代码进行一些其他改进。但首先要尝试让它正常工作。

excel VB将单元格从单张复制到另一张单元格

1 个答案: