Excel visiual basic：增加麻烦

Question

我正在处理一个代码，每次点击它都会在列表中添加一个数字，该数字从一个工作表复制并粘贴到另一个工作簿上。我遇到的问题是增量编码。我试过{activecell = activecell + 1}，但它是按降序添加数字，即7,6,5,4等。enter image description here

`Sub FILER()
workbooks.open("LOG")
Activeworkbooks.windows(1)visible=false
range("A3").activate
For Each Cell In Worksheets("LOG1").range("A3:A10")
If Cell.value > 0 
ActiveCell.offset(1,0).select
ElseIf Cell.Value= 0 then
activeCell.offset(1) = ActiveCell + 1
End IF
Next
End Sub

Answer 1

您浏览范围内的单元格，无需明确选择单元格。避免使用.Activate和.Select。如果单元格值为0，则仅递增单元格值。

- ＆GT;清理并缩短代码并将其发布到您的问题中。