我的代码有问题我希望这段代码将单元格从一张纸复制到另一张,但是使用以下技巧(英语不是我的第一语言,抱歉)
在“sheet1”中,“日期和票号”始终位于同一单元格中,但我还想复制一个值可以更改的值列表...(A10)所有这些值都转到“sheet2”中row ...“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
我可以阅读什么来解决这个问题......或者任何人都可以帮助我
1 回答
由于您没有提到确切的问题或您看到的错误,我可以看到一些问题的可能来源 .
更换
通过
除此之外,还可以对您的代码进行一些其他改进 . 但首先尝试让它工作没有错误 .