宏來復制數據集的特定部分-不能正常工作

Question

我有一個宏，用於掃描位於“我們的數據”表中某處的特定標頭。 找到標題后，它將復制標題和數據范圍，直到最后一個值。 之后，應將其復制到第一行空白的“計算”表中。 但是，當在搜索的標頭旁邊有其他值時，此代碼無法正常工作。 然后，它抓住了一切。

示例：我想找到“公司類型”。 在“我們的數據”表中，它看起來像這樣：

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

然后，代碼將所有4個數據集（目標配置文件明細，公司類型，NAICS描述，NAICS代碼）復制到“計算”表中。 我的代碼中的錯誤在哪里？

碼：

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 ，這應該可以解決您的問題。