vba - スタイリングに従ってExcelで異なる範囲のセルをコピーする

Question

ピボット テーブルを使用してデータを整理しています。データを別のシートにコピーすると、次のようになります。

しかし、私はデータをそのように1つずつにしたい:

太字の行をヘッダーとして使用し、固定されていない必要な範囲のみを切り取るにはどうすればよいですか? マクロを使用してみましたが、固定範囲しかコピーできなかったので、毎回手動で行っています (シートの一部はかなり大きいです)。助けてください、ありがとう。

Answer 1

内のすべてのセルを完全に制御できますPivotTable。サンプルコード:

Dim curpivottable As PivotTable
Set curpivottable = ActiveSheet.PivotTables(1)
Dim curRange As Range
Set curRange = curpivottable.TableRange1

For Each cell In curRange.Cells
    If (cell.Font.Bold) Then
       'This is a bold cell
    End If
Next cell

には、最初の行 (タイトルがある場所) からのcurRangeすべての内容が含まれることに注意してください。curpivottable

- アップデート

上記の私の答えは、ピボットテーブルで範囲を処理する一般的な方法でした。範囲をコピー/貼り付けするだけの場合は、直接行うことができます (範囲がピボットテーブルにあるかどうかにかかわらず同じです)。例：

Dim origRange As Range
Set origRange = Sheets("Sheet1").Range("A2:A500")
Dim destRange As Range
Set destRange = Sheets("Sheet2").Range("A2")
origRange.Copy
destRange.PasteSpecial xlPasteValues

同様に、ピボットテーブル内にあるかどうかに関係なく、特定のセルの形式 (太字かどうか) を個別に確認できます。