Excel如何使用InStr

Question

If InStr(1, UCase(CStr(compare_DU_ID)), "L4L", 1) >= 1 Then
    If UCase(CStr(compare_DU_ID)) = UCase(CStr(DU_ID)) Then 'If L4L in compare_DU_ID, then DU_ID definitely equals to compare_DU_ID
        Worksheets("Sheet2").Cells(y, 97).Value = Updated_Date '1. Cells(y, 97) might need to change, depending on which contract date you want to update
    End If
ElseIf InStr(1, CStr(compare_DU_ID), CStr(DU_ID), 1) = 1 Then
    Worksheets("Sheet2").Cells(y, 97).Value = Updated_Date
ElseIf InStr(1, CStr(DU_ID), CStr(compare_DU_ID), 1) = 1 Then
    Worksheets("Sheet2").Cells(y, 97).Value = Updated_Date
End If

我在更新日期时遇到问题。例如，第一种情况，如果CStr(DU_ID) = 1731WG和CStr(compare_DU_ID) = 31731WG，则不会更新日期。第二种情况，当CStr(DU_ID) = 1392WG和CStr(compare_DU_ID) = 11392WG时，将更新日期。

我需要对代码进行哪些调整，这样第二个场景就不会发生变化。

另外，我认真的认为11392WG会被更新是因为它以"1“开头，所以1392WG也是如此。31731WG不会改变是因为它不是以"1“开头的，这是1731WG的第一个值。

Answer 1

您正在使用此版本的函数

Public Shared Function InStr(_
  ByVal Start As Integer, _
  ByVal String1 As String, _
  ByVal String2 As String, _
  Optional ByVal Compare As Microsoft.VisualBasic.CompareMethod _
) As Integer

这很好，只需注意，你可以在函数VbCompareMethod.vbTextCompare的末尾说1，也可以什么都不说。

我认为问题是你期望它是1而不是>= 1。

If InStr(1, UCase(CStr(compare_DU_ID)), "L4L", 1) >= 1 Then
   If UCase(CStr(compare_DU_ID)) = UCase(CStr(DU_ID)) Then 'If L4L in compare_DU_ID, then DU_ID definitely equals to compare_DU_ID
         Worksheets("Sheet2").Cells(y, 97).Value = Updated_Date '1. Cells(y, 97) might need to change, depending on which contract date you want to update
   End If
ElseIf InStr(1, CStr(compare_DU_ID), CStr(DU_ID), 1) < 1 Then
   Worksheets("Sheet2").Cells(y, 97).Value = Updated_Date
ElseIf InStr(1, CStr(DU_ID), CStr(compare_DU_ID), 1) < 1 Then
   Worksheets("Sheet2").Cells(y, 97).Value = Updated_Date
End If  

请注意，我已经将第4行和第6行的缩进和=1更改为>=1