宏複製數據集的某些部分 - 無法正常工作

Question

我有一個宏，它掃描位於「我們的數據」表中某處的特定標題。當它找到標題時，它會複製標題和數據範圍直到最後一個值。之後，它應該將其複製到第一個空行中的「計算」表中。然而，這個代碼在適當的時候不起作用，當在搜索頭旁邊的時候，我們有一些其他的值。然後它抓住了一切。

例如： 我想查找「公司類型」。在「我們的數據」片材，它看起來像這樣：

|Target Profile Breakdown | Company Type | NAICS Description | NAICS code | 
|       |    |     |   | 
|       |    |     |   | 
|       |    |     |   | 

然後代碼複製所有4個數據集（目標輪廓擊穿，公司類型，NAICS DESCR，NAICS碼）到「計算」片。 我的代碼中的錯誤在哪裏？

CODE：

Sub testing() 
Sheets("Our Data").Activate 
    Dim rngAddress As Range 
    Set rngAddress = Range("A1:ZZ66666").Find("Company Type") 
    If rngAddress Is Nothing Then 
    MsgBox "Company Type column was not found." 
    Exit Sub 
    End If 
    Range(rngAddress, rngAddress.End(xlDown)).CurrentRegion.Copy 
    Sheets("Calculations").Activate 
Range("IV1").Select 
Selection.End(xlToLeft).Select 
ActiveCell.Offset(0, 1).Select 
ActiveSheet.Paste 
End Sub 

Answer 1

請從您的代碼應解決您的問題，刪除CurrentRegion。