我以前做过此事，现在我想弄清楚为什么我不知道为什么。
我正在尝试从一张纸上提取数据并将其粘贴到下一行的另一张纸上。在不使用“复制”或“粘贴” VBA函数的情况下，我已经完成了此操作。.我只是使用了值，我想以这种方式使用户更容易（在Excel剪贴板上没有随机复制的内容）
这是我的代码：
Sub SubmitChange()
row_number = 2
Do
DoEvents
Row_number = row_number + 1
item_in_review = Sheet44.Range("B" & row_number)
Loop Until item_in_review = ""
Sheet44.Range("B" & row_number) = Sheet43.Range(A6).Value
End Sub
尝试这个：
Option Explicit
Sub SubmitChange()
Dim lastRow As Long
lastRow = Sheet44.Cells(Sheet44.Rows.Count, 2).End(xlUp).Row + 1
Sheet44.Range("B" & lastRow).Value2 = Sheet43.Range("A6").Value2
End Sub
。
笔记：
您应该始终Option Explicit在模块顶部使用
如果您复制并粘贴了代码但未做任何更改，则存在一个微妙的问题：
另一个问题是这Sheet43.Range(A6).Value应该是这个Sheet43.Range("A6").Value
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句