1

のシート 1 から値を見つけようとしていますsheet2(A1:DF5000)。問題は、値がシート2のどこにでもある可能性があることです。一致が見つかったら、もう 1 つ。sheet2 X495の値を返す必要があるとしましょうsheet2 X1。

  1. 検索一致から常に列を返す
  2. 常に行 1 を返す
  3. 常に完全一致を使用する

したがって、「ABC」を検索していて、完全に一致するものがsheet2!D14. 値を返しますSheet2!D1。

実際のアプリケーション:

製品に使用するすべての SKU を追跡するために Excel を使用しています。各サイトには一意の SKU が必要です。そのため、すべて同じ製品である何百もの SKU があります。そのため、Excel にマスター リストがあり、行 1 が私の製品であり、各列には各製品に使用されているすべての SKU が含まれています。

以下のコードは機能していましたが、いくつかおかしなことが起こりました。完全一致を検索していないことがわかりましたが、近いです。

誰でもこれを機能させるのを手伝ってもらえますか?

また、わからないことがあれば遠慮なく質問してください。

Function GetPart(text As Variant, rCells As Range)
  Dim txt As String
  Dim rRange As Range
  Dim SubjCell

  For Each rRange In rCells
    SubjCell = rRange
    txt = text

    If InStr(txt, SubjCell) <> 0 Then
      GetPart = SubjCell
      Exit For
    Else
      GetPart = "Not Found"
    End If
  Next rRange

End Function
4

1 に答える 1