-2

多くのシートを含む Excel ファイルがあります。既存のシートの任意のセルで文字列を見つけて、それを新しい「結果」シートにコピーしたいと思います。多くの文字列 (約 50 個の異なる文字列) が見つかった行を取得し、それらの結果を別の行に表示する必要があります。

検索する文字列のセットを提供でき、「結果」シートの結果のブロック間に空白行があるとよいでしょう (見つかった文字列のブロックを区別するため)。

私はすでにこれをグーグルで検索しましたが、一致する文字列の行をコピーするコードを見つけましたが、それらは1つのシートでのみ検索し、既存のすべてのシートを検索する必要があります(もちろん「結果」シートを除く)。

あなたの助けに本当に感謝します！

4

1 に答える 1

1

1 つのシートで機能する関数がある場合は、次のProcessSheetようなものを使用してすべてのシートで実行できます。

Dim Sh As WorkSheet
For Each Sh In Sheets
  If Sh.Name <> "Sheet not to process" Then ProcessSheet Sh
Next Sh

そして、次のProcessSheetように、すべての参照が を使用するように変更しますSh。

'without sheet reference
Cells(1, 2)
Range("A1")
'become
Sh.Cells(1, 2)
Sh.Range("A1")
于 2013-08-14T23:14:32.963 に答える