0

「Our Data」シートのどこかにある特定のヘッダーをスキャンするマクロがあります。ヘッダーが見つかると、ヘッダーとデータ範囲を最後の値までコピーします。その後、最初の空の行の「Calculations」シートにコピーする必要があります。ただし、検索されたヘッダーの隣に他の値がある場合、このコードは正しく機能しません。それからすべてをつかみます。

例：「会社種別」を知りたい。「Our Data」シートでは、次のようになります。

|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 に答える