0

我有一个宏，它扫描位于“我们的数据”表中某处的特定标题。当它找到标头时，它会复制标头和数据范围，直到最后一个值。之后，它应该将其复制到第一个空行中的“计算”表中。但是，当搜索到的标题旁边有一些其他值时，此代码无法正常工作。然后它抓住了一切。

示例：我想查找“公司类型”。在“我们的数据”表中，它看起来像这样：

|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
4

1 回答 1

1

请CurrentRegion从您的代码中删除，这应该可以解决您的问题。

于 2013-03-15T13:30:35.953 回答