行ヘッダーを検索し、そのヘッダーの下の範囲全体を選択するVBAコード

Question

私はVBAにはまったく新しく、私の日常業務の一部を自動化しようとしています。私が自動化したい作業の1つは、指定されたヘッダーを「検索」し、そのデータ列全体を選択する必要があります。その範囲を別のスプレッドシートに貼り付けます。

Tamcolumn = Cells.Find(what:="plan_tamaward", after:="a1", searchdirection:=xlPrevious, searchorder:=xlBycolumn, lookat:=xlPart).Column

私は全体の列を定義していたときに、コードのこの少しは役に立つことが判明しましたが、問題は、私は下の「選択」することなく、列のヘッダーを定義し、範囲を定義することはできませんです私が知っているデータは大きなノーである。

これは意味があると思います。

ありがとうございます。 。

Answer 1

あなたはあなたのコードに次のようなアプローチを取り入れることができます...

Dim Col As Long, LastRow As Long 
Dim Rng As Range 
If Application.CountIf(Rows(1), "plan_tamaward*") > 0 Then 
    Col = Application.Match("plan_tamaward*", Rows(1), 0) 
    LastRow = Cells(Rows.Count, Col).End(xlUp).Row 
    Set Rng = Range(Cells(2, Col), Cells(LastRow, Col)) 
End If 
If Not Rng Is Nothing Then 
    MsgBox Rng.Address 
    'do whatever you want to do with this range here 
Else 
    MsgBox "The column named like plan_tamaward* was not found in Row1.", vbExclamation, "Column Not Found!" 
    Exit Sub 
End If