从句子中提取id到另一个

Question

我有一张表H，其中包含注释。

我正在使用以下代码，从评论中提取我的ID。

几乎在所有情况下都能成功运作。

我不知道，为什么对于特定的行，提取不起作用。

任何人都可以查看我的代码并建议我哪里出错了。

我附上了一张显示类似结果的图片。

I have added some samples, if you find in row 3,in this particular case, I am not able to extract the ID from Comment.

Anylead对此有所帮助。

以下是我的代码。

Sub Cmt()
Dim strLength As Integer
Dim i As Long
For i = 5 To Rows.Count
Dim AllWords As Variant
AllWords = Split(Cells(i, 8).Value, " ")
For Each Item In AllWords
strLength = Len(Item)
If strLength > 0 And strLength <= 13 And Item Like "I5G*?#" Then
Cells(i, 13) = Item
End If
Next
Next i
End Sub

Answer 1

  

只是，是附加标准。其余的都很完美

下面的代码应该在,的末尾处理ID 's，假设在,之后只有一个尾随ID 's

Sub Cmt()
    Dim strLength As Integer
    Dim AllWords, Item
    Dim i As Long
    For i = 5 To Cells(Rows.Count, "H").End(xlUp).Row
        AllWords = Split(Cells(i, 8).Value, " ")
        For Each Item In AllWords
            strLength = Len(Item)
            If strLength > 0 And strLength <= 13 And Item Like "I5G*?#" Then
                Cells(i, 13) = Item
            ElseIf strLength > 0 And strLength <= 14 And Item Like "I5G*?#," Then
                Cells(i, 13) = Left(Item, strLength - 1)
            End If
        Next
    Next i
End Sub

参见图片以供参考。