自動刪除空白列

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

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

1^# 跳轉到 »

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

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

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

小弟想請教下, 因 ...
yowhome 發表於 2013-4-9 09:55

提供個小方法
Sub owg()
Dim nt, un As String

nt = "NTHDE"
un = "UNIT NB"

For goe = 1 To 65535
If Cells(goe, 2) = nt Then kn = goe + 2
If Cells(goe, 2) = un Then ku = goe - 2

Next
' Rows("36:36").Select '刪除整列

Range("b" & kn, "j" & ku).Select
Selection.Delete Shift:=xlUp
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

2^#

發表於 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

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

3^#

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

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

回復 mark15jill

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

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

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

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

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

  少看=只看不做也枉然

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]