>>917
Private Sub btnEntry_Click()
Dim r As Integer

r = Range("A" & Rows.Count).End(xlUp).Offset(1).Row
With Worksheets("商品マスタ")
If Application.CountIf(.Range("B:B"), txtGoods.Text) = 0 Then
.Range("A" & r).Value = r - 1
.Range("B" & r).Value = txtGoods.Text
lblAlert.Caption = ""
Else
lblAlert.Caption = "入力済です"
End If
End With

txtGoods.SetFocus
Application.Wait Now + 1 / 24 / 60 / 60 / 10
SendKeys "^a", True
End Sub