Excel VBA：输入框自动填充列

Question

我在CommandButton（2）上使用以下内容。它是使用相同代码的6个CommandButtons中的2个。

Private Sub CommandButton2_Click()
Dim myValue As String
Dim lastCel As Range
Dim rng As Range
Set rng = ActiveSheet.Range("J1")
With ActiveSheet.OLEObjects("CommandButton2")
    .Top = rng.Top
    .Left = rng.Left
    .Width = rng.Width
    .Height = rng.RowHeight
    Set lastCel = Range("A" & Rows.Count).End(xlUp)
    myValue = InputBox("Enter Advice No", "Check No")
    Range("J2:J" & lastCel.Row).Formula = "=IF($A2<>""""," & """" & myValue & """" & ","""")"
    Range("J2:J" & lastCel.Row).Value = Range("J2:J" & lastCel.Row).Value
    Range("J2").Value = myValue
End With  
End Sub

代码绑定到一个命令按钮，提示用户输入信息，然后应该使用输入的值自动填充列，只要它们是A列中的值。与其他5个CommandButtons不同工作

当我输入任何值时，它将返回单元格J2的输入值。

然后

然后为每个单元格返回= IF（$ A2＆lt;＆gt;“”，“00682300”，“”）。

最常见的条目是所列格式的数字。我不确定为什么除了这个之外它为每个其他CommandButton工作。