ここから始めて小さいものがあります。 Excelファイルを開き、範囲E10:E34
に値を書き込んでください。値の1つがPlot
であることを確認してください。それはあなたの価値が発見されるべきでE10:E34
範囲の行を与える
Option Explicit
Sub TestMe()
Dim varArray As Variant
Dim strToSearch As String: strToSearch = "Plot"
Dim varVal As Variant
Dim lngCounter As Long : lngCounter
varArray = Range("E10:E34")
For Each varVal In varArray
If varVal = strToSearch Then
Debug.Print varVal
Debug.Print lngCounter
Exit For
End If
Next varVal
lngCounter = lngCounter + 1
End Sub
: は、その後のコードを実行します。
コードは完成していません。次のことを考える必要があります。
- 値が2回以上あるとどうなりますか。
- 複数の列を持つ配列が必要な場合はどうなりますか。
- 範囲が柔軟でなければならない場合はどうなりますか。
- セル内の値の開始を知っていても、それでも必要な場合はどうなりますか?値は
Plot
であり、セルにはPlotnik
があり、何とかそれを取得したいと考えています。
- 他にもあります。
最初に値を配列に読み込んでいませんか?いくつかのコードを投稿してください。 – User632716
これまでのコードは何ですか? –
"Find"関数を使用して、Excelシート内の文字列を検索しています。数千の異なる文字列のために何千ものセルを検索すると、これは少し遅いです。このため、私はすべての列をロードして効率的な検索を実行できる変数を使用したかったのです。私は 'INSTR'関数を使用しており、それは時代に顕著な違いをもたらしました。 – Masood