Поиск столбца для вставки, начиная со строки

Question

Я искал некоторое время и вижу сообщения о вставке целого столбца, начиная с определенной строки, но в моем случае мой столбец основан на выражении if для значения.Я все еще любитель, поэтому я предполагаю, что ответ связан с установкой i где-нибудь, чтобы найти правильный столбец, но я не знаю, как включить это в моем случае.Приведенный ниже код работает, я просто не знаю, как копировать, начиная со строки 3 вместо использования EntireColumn.Спасибо за помощь и дайте мне знать, если я пропустил какую-либо информацию.

    Sub ColumnCopy()

For Each cell In ActiveWorkbook.Sheets("Sheet1").Range("B5:AZ3000")
    If cell.Value = "Active" Then Cell.EntireColumn.Copy Destination:=ActiveWorkbook.Sheets("Sheet2").Columns(2)
Next

 End Sub 

Answer 1

Я бы изменил некоторые опции для метода Range.Find.С учетом регистра?Посмотри в xlPart или xlWhole?И т.д. В настоящее время он настроен на поиск из Columns A - Z, чтобы найти Active.Вы можете расширить это при необходимости

---

Option Explicit

Sub FindHeader()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
Dim Found As Range, LRow As Long

Set Found = ws.Range("A5:Z5").Find("Active")

If Not Found Is Nothing Then
    LRow = ws.Cells(ws.Rows.Count, Found.Column).End(xlUp).Row
    ws.Range(ws.Cells(3, Found.Column), ws.Cells(LRow, Found.Column)).Copy
    ThisworkBook.Sheets("Sheet2").Range("B3").PasteSpecial xlPasteValuesAndNumberFormats
End If

End Sub