根據文本和符號標記單元格值

Question

我在列A中將具有以下值; A1：11/5，A2：11/5R，A3：11/6，A4：11/7，A5：11/5 $，A6：11/5

我想將這些單元標記爲重複第10列如果數字相同而不考慮結束符號：例如：A1，A2，A5，A6是重複的，應在Col J1，J2，J5和J6中標記。

以下代碼僅適用於數字。它不會計算單元格值的結束符號。任何建議來修改代碼以獲得所需的輸出，我們感激。

Sub FindDuplicates() 

Dim LastRow As Long, matchFoundIndex As Long, iCntr As Long 
LastRow = Cells(Rows.Count, "A").End(xlUp).Row 

For iCntr = 1 To LastRow    ' 1 set the start of the dup looks 
    If Cells(iCntr, 1) <> "" Then 
     matchFoundIndex = WorksheetFunction.Match(Cells(iCntr, 1), Range("A1:A" & LastRow), 0) 
     If iCntr <> matchFoundIndex Then 
      Cells(iCntr, 10) = "Duplicate" 
     Else 
      Cells(iCntr, 10) = "E" 
     End If 
    End If 
Next 

End Sub 

謝謝

Answer 1

假設，如果它不是一個數字單元格中的最後一個字符應該被忽略：

Sub FindDuplicates() 
    Dim v As Variant 
    Dim LastRow As Long, x As Long 
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row 

    For x = 1 To LastRow       ' 1 set the start of the dup looks 
     If Cells(x, 1) <> "" Then 

      v = IIf(IsNumeric(Right(Cells(x, 1), 1)), Cells(x, 1), Left(Cells(x, 1), Len(Cells(x, 1)) - 1)) 
      Cells(x, "J") = IIf(Application.Match(v, Range("A1:A" & LastRow), 0) > 1, "E", "Duplicate") 

     End If 
    Next 

End Sub