在单元格中查找string值，对结尾稍作修改

我写了这个代码，它是Select Case语句的一部分。 它search一个术语variables（ 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, net有Finished goods或Finished goods, ….

我怎样才能调整我的代码，使他能够在我收到的报告中find这个元素，而不会被这种微小的改变所影响？

Answer 1

将xlPart更改为xlPart并search“成品”，不区分大小写。