vba - 根据样式复制excel中不同范围的单元格

Question

我使用数据透视表来排列我的数据。当我将数据复制到另一张表时，它看起来像这样：

但我希望数据像这样一个接一个：

如何将粗线用作标题并仅剪切未固定的所需范围？我尝试使用宏，但我只能复制固定范围，所以我每次都手动进行（有些工作表非常大）。请帮忙，谢谢。

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

等效地，您可以在是否位于数据透视表中时独立检查给定单元格的格式（是否为粗体）。