VBAを使用して複数の列の値を検索する

Question

私はvbaの方が比較的新しいですが、ブック内のいくつかのワークシートで実行できるマクロの作成に関するアドバイスを探しています。

私が探している助言は、私がそれらの列で特定の値を見つけることができる3列を取ることです。行には、これらの3つの列のそれぞれに値があり、それらの行をすべての列見出しと共に同じブックの新しいワークシートに保存する場所です。したがって、ワークブックに10枚のワークシートがあり、マクロを実行すると、20枚のワークシートが必要になります。

誰でも手伝ってもらえますか？

Answer 1

あなたはVBAを初めて使うので、いくつかのコードを書いています。主は、私が新しい時に私はたくさんの助けを持っていたことを知っています。これをチェックしてください。どのように値を渡すのかは分かりませんが、これはあなたに素晴らしいスタートを与えるはずです。

Sub find3_makesheet() 

Dim strValue As String 
Dim wks As Worksheet 
Dim rng1 As Range, rng2 As Range, rng3 As Range 

strValue = "myValue" 

For Each wks In Worksheets 

    With wks 

     If Not .Columns(1).Find(strValue, lookat:=xlWhole) Is Nothing Then Set rng1 = .Columns(1).Find(strValue, lookat:=xlWhole) 
     If Not .Columns(2).Find(strValue, lookat:=xlWhole) Is Nothing Then Set rng2 = .Columns(2).Find(strValue, lookat:=xlWhole) 
     If Not .Columns(2).Find(strValue, lookat:=xlWhole) Is Nothing Then Set rng3 = .Columns(2).Find(strValue, lookat:=xlWhole) 

     If Not rng1 Is Nothing And Not rng2 Is Nothing And Not rng3 Is Nothing Then 
      ThisWorkbook.Worksheets.Add After:=Worksheets(Worksheets.Count) 
      Set wksCopyTo = ActiveSheet 
      .Rows(1).EntireRow.Copy wksCopyTo.Rows(1) 
      rng1.EntireRow.Copy wksCopyTo.Rows(2) 
      rng2.EntireRow.Copy wksCopyTo.Rows(3) 
      rng3.EntireRow.Copy wksCopyTo.Rows(4) 
     End If 

    End With 

    Set rng1 = Nothing 
    Set rng2 = Nothing 
    Set rng3 = Nothing 
Next 

End Sub