自動刪除空白列

帖子: 21
主題: 4
精華: 0
積分: 30
點名: 0
作業系統: windows7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2013-3-13
最後登錄: 2013-4-26

2^#

發表於 2013-4-9 13:13 | 顯示全部帖子

回復 2# mark15jill

你好... 我嘗試過, 可以了, 不過想問下, 因為table 入面資料會改變, 如果我要用GRAND TOTAL 開始,

咁我就張 nt = "NTHDE" 改為 nt= "grand total", 跟住就error, 我又應如何寫法呢 ??

帖子: 21
主題: 4
精華: 0
積分: 30
點名: 0
作業系統: windows7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2013-3-13
最後登錄: 2013-4-26

3^#

發表於 2013-4-9 13:16 | 顯示全部帖子

回復 3# yowhome

不好意思, 我成功了, 原來要大細相同. 謝謝!!

帖子: 21
主題: 4
精華: 0
積分: 30
點名: 0
作業系統: windows7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2013-3-13
最後登錄: 2013-4-26

4^#

發表於 2013-4-10 09:59 | 顯示全部帖子

回復 5# mark15jill

Book1.zip (7.1 KB)
你好, 小弟又發現有問題, 小弟用你這個方法嘗做一個range selection,

Dim RS, GT As String

RS = "REMARKS:"
GT = "Grand Total"

For GOE = 1 To 65535
If Cells(GOE, 2) = RS Then RS1 = GOE + 2 ' 第二行儲存格含有REMARKS:
If Cells(4, GOE) = GT Then GT1 = GOE + 2 ' 第四列儲存格含有Grand Total

Next

Range("A1", GT1 & RS1).Select
Selection.Copy

但係 ( If Cells(4, GOE) = GT ) 出現error, 我應如何解決呢 ??

帖子: 21
主題: 4
精華: 0
積分: 30
點名: 0
作業系統: windows7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2013-3-13
最後登錄: 2013-4-26

5^#

發表於 2013-4-10 10:47 | 顯示全部帖子

回復 7# mark15jill

不好意思, 我又說得不清楚了, 是這樣的:

我想要的是一個範圍SELECTION. 範圍係由A1開始到第四列GRAND TOTAL 向右二行, 及 REMARKS: 下的2行,

如果用 BOOK1.XLS 就是 A1:L30, 但是由於我每次插入的PIVOT TABLE 大小都不一樣, 所以只好嘗試用這個方法,

我想請問下我應如何做呢 ?