求助：控件文本框文字录入单元格

hoolei

上传了附件Excel2010，请高手指点
将控件文本里的文字输入单元格，其中第一个文本框是标题，对应worksheet的第一行，第二个文本框输入文字，按下命令按钮后首先将第一个文本框里的内容与工作表第一行单元格内的内容进行匹配，如果一致，就将第二行的文字录入到该列的最下面一行（以A:A为标准）；如果不匹配，就将第一个文本框的内容录入到最后一列的第一行，第二文本框录入到该列的最下行。
一下是我的代码，请帮改改{:soso_e115:}


Private Sub CommandButton1_Click()
Sheet1.Select
Dim col As Long
Dim emptyRow As Long
Dim i As Integer
Dim j As Integer

Dim rng As Range
      col = Cells(1, Columns.Count).End(xlToLeft).Column
      emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
    For i = 1 To 10
        If TextBox1.Value <> "" Then
            If TextBox1.Value = Cells(1, i).Value Then

            Cells(emptyRow, i) = TextBox1.Value
            End If
        End If
        If TextBox1.Value <> Cells(1, i).Value Then
              Cells(1, col + 1) = TextBox1.Value
              Cells(emptyRow, col + 1) = TextBox2.Value
        End If
    Next
End Sub

hoolei

Private Sub CommandButton1_Click()
Dim col As Long
Dim emptyRow As Long
Dim i As Long

Dim str1 As String
Dim str2 As String
Dim rng As Range



      col = Cells(1, Columns.Count).End(xlToLeft).Column
      emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
         
    For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
        If TextBox1.Value <> "" Then
                str1 = TextBox1.Text
                str2 = Cells(1, i).Text
               
                       If str1 Like str2 = True Then

                       Cells(emptyRow, i) = TextBox2.Value
               
                 Else
                     Cells(1, col + 1).Value = TextBox1.Value
                     Cells(emptyRow, col + 1) = TextBox2.Value
                 End If
        End If      
    Next
MsgBox (str1)
MsgBox (str2)
    End Sub

修改后还是不行
好像关键是else后面的语句，不管前面怎么判断，它都给输入