麻辣家族討論版版 » Excelㄧ般區 » 刪除空白儲存格一整列

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 81
主題: 26
精華: 0
積分: 106
點名: 0
作業系統: WIN7
軟體版本: 32位元
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2012-3-3
最後登錄: 2019-6-26

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-3-4 14:32 | 只看該作者

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

本帖最後由 eg0802 於 2012-3-4 14:33 編輯

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

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

樓主熱帖

收藏

Jason

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-3-4 15:51 | 只看該作者

本帖最後由 register313 於 2012-3-4 16:00 編輯

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

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

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

複製代碼

刪除空白列.rar (5.35 KB)

中學生 Rank: 2

帖子: 81
主題: 26
精華: 0
積分: 106
點名: 0
作業系統: WIN7
軟體版本: 32位元
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2012-3-3
最後登錄: 2019-6-26

3^#

發表於 2012-3-4 19:33 | 只看該作者

回復 2# register313

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

Jason

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

4^#

發表於 2012-3-4 20:07 | 只看該作者

回復 3# eg0802

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

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

5^#

發表於 2012-3-4 20:18 | 只看該作者

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

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

複製代碼

中學生 Rank: 2

帖子: 81
主題: 26
精華: 0
積分: 106
點名: 0
作業系統: WIN7
軟體版本: 32位元
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2012-3-3
最後登錄: 2019-6-26

6^#

發表於 2012-3-4 20:18 | 只看該作者

回復 4# register313

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

Jason

中學生 Rank: 2

帖子: 81
主題: 26
精華: 0
積分: 106
點名: 0
作業系統: WIN7
軟體版本: 32位元
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2012-3-3
最後登錄: 2019-6-26

7^#

發表於 2012-3-4 20:23 | 只看該作者

回復 5# register313

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

Jason

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

8^#

發表於 2012-3-4 20:34 | 只看該作者

回復 7# eg0802

5樓之程式

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

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

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

9^#

發表於 2012-3-4 20:39 | 只看該作者

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

中學生 Rank: 2

帖子: 81
主題: 26
精華: 0
積分: 106
點名: 0
作業系統: WIN7
軟體版本: 32位元
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2012-3-3
最後登錄: 2019-6-26

10^#

發表於 2012-3-4 21:32 | 只看該作者

[版主管理留言]

ANGELA(2012-3-4 21:44): 上傳文件不分等級,EXCEL檔要壓縮成.ZIP或.RAR等.下載才有限制.

回復 9# oobird

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

Jason

靜思自在 : 人生沒有所有權，只有生命的使用權。

返回列表下一主題上一主題