搜索表中的值是否存在所需的代码

Question

我有一个用户表单，其图像也附在工作表图像下面。

我想要的是当我按下提交按钮时，它将检查是否存在针对特定帐户头的组头值。如果针对特定帐户头的值不存在，则会将值放在表中。

例如：如果第1列中的值为“资产”且“反对”，则值为“非当前资产”，则应显示针对此帐户头的值。请输入唯一的。

以下是我的代码。

Private Sub CommandButton1_Click()
Dim ws As Worksheet, tbl As ListObject, row As ListRow

Set ws = Sheets("Sheet1")
Set tbl = ws.ListObjects("Table2")

Dim intValueToFind As String, intValueToFind1 As String, rng As Range, rng1 As Range

Set rng = tbl.ListColumns(1).DataBodyRange
Set rng1 = tbl.ListColumns(2).DataBodyRange


intValueToFind = LCase(Me.ComboBox1.Value)
intValueToFind1 = LCase(Me.TextBox2.Value)

If Not rng Is Nothing Then

For Each rng In rng
If LCase(rng.Value) = intValueToFind Then
If Not rng1 Is Nothing Then
For Each rng1 In rng1
If LCase(rng1.Value) = intValueToFind1 Then
        MsgBox ("Group Head under this Account Head already Exist. Please enter the Unique Name...")
    Exit Sub
    End If
    Next rng1
End If
End If
Next rng


End If


Set row = tbl.ListRows.Add
row.Range(1, 1).Value = Me.ComboBox1.Value
row.Range(1, 2).Value = Me.TextBox2.Value
End Sub

我已经编辑了我的代码，除了一件事之外它完美无缺。它无法识别小型，大写和混合字母。 请建议。

由于 萨勒曼汗