- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13

|
9#
發表於 2012-3-3 09:33
| 只看該作者
回復 8# jackson7015
你的目的不是用樞鈕分析表,樞鈕分析表是統合歸納,你要的只是排列某些欄位
用這個代碼:- Sub yy()
- Dim i%, j%, n%, c, arr, a
- c = Array(3, 4, 5, 10, 1, 11, 12)
- With Sheets("綜合資料庫")
- n = .[b65536].End(3).Row
- a = .Range(.Cells(4, 2), .Cells(n, 13))
- End With
- ReDim arr(1 To UBound(a), 1 To 7)
- For j = 1 To UBound(a)
- For i = 1 To 7
- arr(j, i) = a(j, c(i - 1))
- Next i, j
- With Sheets("項目9")
- .Cells(2, 1).Resize(j - 1, 7) = arr
- .Cells(2, 6).Resize(UBound(a), 1).SpecialCells(4) = "-"
- .UsedRange.Borders.LineStyle = 1
- End With
- End Sub
複製代碼 |
|