[發問] 刪除空白儲存格一整列

eg0802

各位大大小弟又有問題發問，還請各位大大幫幫忙
假設     A    B    C    D    E
       1   50
       2
       3         60
       4                               70
       5

試問該用什麼方法  讓電腦可以知道   藉由空白的儲存格去刪除一整列(2.5)呢?

register313

[attach]9838[/attach]回復 1# eg0802

使用VBA
1.加入欄位名稱
2.設範圍為A1~E10

下載 (46.24 KB)

2012-3-4 15:57

1. Sub 刪除空白列()
   
2. Set Rng = Range([A1], [E10])
   
3. Rng.Select
   
4. Rng.AutoFilter
   
5. For R = 1 To [IV1].End(xlToLeft).Column
   
6.   Rng.AutoFilter Field:=R, Criteria1:="="
   
7. Next R
   
8. Rng.Offset(1, 0).Delete Shift:=xlUp
   
9. Rng.AutoFilter
   
10. End Sub

複製代碼

刪除空白列.rar (5.35 KB)

下載次數: 13

2012-3-4 16:00

eg0802

回復 2# register313


    大大您好 不好意思一直麻煩你 可能是我表達沒清楚  您寫的語法  只能在第一欄開始  如果在表格的中間 就是非從A1開始  英文為欄  數字為列  以下圖來說 我希望刪掉"丙"整列   因為以C6:G10是整列空白的 懇請幫我指點迷津一下 感激不盡!!
              C       D       E        F        G
           香蕉  蘋果  鳳梨  柳丁  芒果
6  甲   80
7  乙            70
8  丙
9  丁                                  60
10戊                                             90

register313

回復 3# eg0802

不就是
除第一列欄位名稱外
把其他整列空白列刪除

下載 (20.47 KB)

2012-3-4 20:07

register313

回復 3# eg0802
黃底範圍整列空白者刪除

下載 (50.2 KB)

2012-3-4 20:17

1. Sub 刪除空白列()
   
2. R = [A65536].End(xlUp).Row
   
3. C = [IV1].End(xlToLeft).Column
   
4. Set Rng = Range([A1], Cells(R, C))
   
5. Rng.Select
   
6. Rng.AutoFilter
   
7. For R = 2 To C
   
8.   Rng.AutoFilter Field:=R, Criteria1:="="
   
9. Next R
   
10. Rng.Offset(1, 0).Delete Shift:=xlUp
    
11. Rng.AutoFilter
    
12. End Sub

複製代碼

eg0802

回復 4# register313


    可是我的A1.A2.A3.A4.A5 是有內容的  並非大大圖 A2.A3.A4....是空白的

eg0802

回復 5# register313


    不好意思大大  這正是我需要的 再問一個很蠢的問題  如果要改範圍  是在哪邊改....很抱歉我剛接觸vba不久 問一堆蠢問題  再問一下  有沒有建議的書籍推薦我這個新手看??

register313

回復 7# eg0802

5樓之程式

第1欄~第XXX欄皆可
第1列~第YYY列皆可

書是死的
本論壇超級版主,版主是活的,沒有比本論壇更好的書了

oobird

先學會發問比較重要
你不上傳文件讓回答你的人不斷猜測你的文件結構，還要模擬建立檔案
不相符又再修改
很浪費時間與空間

eg0802

回復 9# oobird


    大大 我也很想  但我現在還沒辦法上傳.....等級太低 >"<