yowhome

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-4-9 09:55 | 只看該作者

自動刪除空白列

各位大大早晨, 請看附件,

Book1.zip (2.49 KB)

黃色部份是pivot table, 綠色部份是要刪除的空白列

小弟想請教下, 因為每次insert pivot table 都不一樣. 有時多, 有時少, 我應該如何才可以刪除下面的空白列 ??

樓主熱帖

yowhome

小學生 Rank: 1

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

11^#

發表於 2013-4-10 13:44 | 只看該作者

不好意思, 咁多位大大, 我解決了這個問題了, 謝謝

TOP

yowhome

小學生 Rank: 1

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

10^#

發表於 2013-4-10 10:49 | 只看該作者

回復 8# Hsieh

你好. 其實這個問題已經解決了, 只是另有一個問題, 我又不想問新話題, 所以在此繼續, 不好意思

TOP

yowhome

小學生 Rank: 1

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

9^#

發表於 2013-4-10 10:47 | 只看該作者

回復 7# mark15jill

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

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

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

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 247
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-14

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2013-4-10 10:29 | 只看該作者

回復 6# yowhome
不是要刪除綠色部分的整列嗎?
也就是黃表格下面留2列空白列不是嗎?

Sub ex()
With ActiveSheet.UsedRange
Set rng = .Columns(2).SpecialCells(xlCellTypeBlanks)
For Each a In rng.Areas
If a.Count > 2 Then a.Cells(1).Offset(1).Resize(a.Count - 2, 1).EntireRow.Delete
Next
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

7^#

發表於 2013-4-10 10:16 | 只看該作者

本帖最後由 mark15jill 於 2013-4-10 10:32 編輯

回復 mark15jill

你好, 小弟又發現有問題, 小弟用你這個方法嘗做一個range selection,

Dim R ...
yowhome 發表於 2013-4-10 09:59

一下子找列一下子找行當然錯誤...
欄印象中不能超過256
想要詢問的是什麼?

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

yowhome

小學生 Rank: 1

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

6^#

發表於 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, 我應如何解決呢 ??

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

5^#

發表於 2013-4-9 13:43 | 只看該作者

本帖最後由 mark15jill 於 2013-4-9 13:45 編輯

回復 yowhome

不好意思, 我成功了, 原來要大細相同. 謝謝!!
yowhome 發表於 2013-4-9 13:16

  1.程式的 +2 -2  是看妳的 nt 和 un 以及想要留的空白而定..
  2. nt un 的文字可更換，但英文大小寫要相同，不然會無資料
3.之所以用 "NTHDE"  是因為單一儲存格比較好判斷..

nt = "NTHDE"
un = "UNIT NB"

If Cells(goe, 2) = nt Then kn = goe + 2
If Cells(goe, 2) = un Then ku = goe - 2

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

yowhome