如何通过输入框添加自定义文本

Question

我使用以下代码提示用户输入变量并将其添加到末尾的每一行。出于某种原因，最后一行中的数字是填充所有单元格的数字。有没有办法修复此代码？

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")

Answer 1

您定义了从O2到O" & lr的范围。

范围("O" & lr(.值 = 格式(myRange， "1"(

或

单元格(行。计数，"A"(。结束(xlUp(。偏移量(1(。值 = 格式(myRange， "1"(

Answer 2

我真的不明白你为什么使用格式，但是..

如果您想格式化它以确保它是数字格式，我认为最好的方法是在您的输入框上循环，而不是 isnumeric(myrange( 或空值。

用格式格式化数字，我认为它是零。

Format(1 , "0000")应该给0001Format(10, "0")应该给 10