根据造型在Excel中复制不同范围的单元格

我使用数据透视表来安排我的数据。 当我将我的数据复制到另一个工作表时，看起来像这样：

但是我希望数据是这样的：

我怎样才能使用粗线作为标题，只剪切不固定的所需范围？ 我尝试使用macros，但我只能复制固定的范围，所以我每次手动（和一些呃床单很大）。 请帮忙，谢谢。

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包含了第一行（标题所在的地方）中的所有内容。

– 更新

上面的答案是处理数据透视表中范围的通用方法。 如果所有你想要的只是复制/粘贴一个范围，你可以直接做（如果范围是在数据透视表中是相同的）。 例：

 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 

等同地，您可以在数据透视表内独立地检查给定单元格的格式（粗体或不粗体）。