Question

我编写了这段代码，它是Select Case语句的一部分。它会搜索一个术语变量（find_Element），然后将其粘贴到另一个worksheet和另一个cell。

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

然而，像这样的许多元素在命名方面存在微观变化，导致我的代码无用。

例如，我们正在寻找的worksheet有时Finished goods, net而不是cell Finished goods或Finished goods, ....

我如何调整我的代码以使他能够找到该元素而不会被我收到的报告中的这种微观变形所脱轨？

Answer 1

将xlWhole更改为xlPart并搜索＆＃34;已完成的商品＆＃34;，不区分大小写。

在单元格中查找对末尾进行微小修改的字符串值

1 个答案: