我正在使用数据透视表来排列我的数据。当我将数据复制到另一张纸时,它看起来像这样:
但我希望数据可以像这样相互关联:
如何使用粗线作为标题并仅剪切未固定的必需范围?我尝试使用宏,但是我只能复制固定范围,因此每次都手动进行操作(有些工作表很大)。请帮忙,谢谢。
您可以完全控制中的所有单元格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
同样,您可以在是否位于数据透视表中的情况下独立检查给定单元格的格式(是否为粗体)。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句