我正在使用以下代码提示用户输入一个变量并将其添加到最后的每一行。出于某种原因,最后一行中的数字是填充所有单元格的数字。有没有办法修复这个代码?
Dim lr As Long
Dim myRange As Integer
myRange = Application.InputBox("Enter Item Number", Type:=1)
lr = Cells(rows.Count, "A").End(xlUp).Row
Range("O2:O" & lr).Value = Format(myRange, "1")
您定义了从O2
到的范围O" & lr
。
Range("O" & lr).Value = Format(myRange, "1")
或者
单元格(rows.Count, "A").End(xlUp).Offset(1).Value = Format(myRange, "1")
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句