请教问题有关数据透视表问题，急！

kaixinguo2000

2.rar (7.4 KB, 下载次数: 17)

2010-4-17 13:15 上传

点击文件名下载附件

怎么样能快选择，比较急，望各位大虾们解决下！

kaixinguo2000

因为上传的大小被限制了，所以我把格式改为数值.附件中的表其实就是个透视表.怎样能在透视表快速选择多个单元格？

zhc19620430

使用2003版可以，2007版还不太会。做出来样式有些出入。

kaixinguo2000

如何后面的内容有很多面，那也会选到空白单元格上去的.

zhc19620430

你可以将空行隐藏，其他在表里举个实例。

kaixinguo2000

因为我要通过前一个内容导入其它的信息，但导过来时，提示中不能有空白单元格.

joytickle

在2007中，pivot  table option, 选以经典方式显示，然后将“城市”列的collapse，将鼠标移至“货号”列，当鼠标形状变为“黑色向下的箭头时”，便可。

kaixinguo2000

附件中的透视表我只拉了一部份内容出来，后面有很多的，我需要货号在最前面，再来导其它的资料.有办法吗？

andysky

Sub 选择所有黄色单元格()
  Dim FindStr As String, Rng As Range, mRng As Range
  Application.FindFormat.Clear
Application.FindFormat.Interior.Color = 65535
  With Range("A:A")
    Set Rng = .Find(What:="", LookIn:=xlFormulas, LookAt:=xlPart, SearchFormat:=True)
    If Rng Is Nothing Then MsgBox "没有找到此类单元格": Exit Sub
    Set mRng = Rng
    FindStr = Rng.Address
    Do
      Set mRng = Union(mRng, Rng)
      Set Rng = .Find(What:="", After:=Rng, SearchFormat:=True)
    Loop While FindStr <> Rng.Address
    mRng.Select
  End With
End Sub