问在单元格中查找到末尾有小修改的字符串值。

EN

Case 1
        find_Element = "Finished goods, net"

                For k = 3 To last_WS
                    With Sheets(k).Range("1:200")
                    sh_Name = Worksheets(k).Name
                    'sh_Name = Replace(sh_Name, "_", " ")
                    Set pointer_to_Element = .Find(find_Element, _
                        .Cells(.Cells.Count), xlValues, xlWhole, xlByRows, _
                        xlNext, False)
                    pointer_Int_Row = CInt(pointer_to_Element.Row)

                    Worksheets(k).Cells(pointer_Int_Row, lock_Array(k)).Copy
                    Worksheets("EXTRACTIONS").Range("B12").Offset(, q).PasteSpecial xlPasteValues
                    Worksheets("EXTRACTIONS").Range("B11").Offset(, q).Value = sh_Name
                    q = q + 1
                End With
            Next k

q = 1