請問如何將中間空白的列移除呢?

vpower 發短消息加為好友 vpower 當前離線 UID 383 帖子 155 主題 56 精華 0 積分 242 金錢 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 在線時間 64 小時註冊時間 2010-5-29 最後登錄 2011-7-18 禁止發言帖子 155 主題 56 精華 0 積分 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 註冊時間 2010-5-29 最後登錄 2011-7-18	*1^# 跳轉到 »* 倒序看帖** 打印字體大小: tT 發表於 2010-7-22 23:08 \| 只看該作者請問如何將中間空白的列移除呢? http://naturefruit.myweb.hinet.net/ask1.xls 共有收藏分享

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

2^#

發表於 2010-7-27 07:20 | 只看該作者

你好：

請試試是否可行

Sub aa()

Dim mSht As Worksheet
Dim mRng As Range

Set mSht = Worksheets(1)
With mSht
Set mRng = .UsedRange.SpecialCells(xlCellTypeBlanks)
mRng.Delete
End With

End Sub

TOP

jackdream

　暱稱: Jack

中學生 Rank: 2

帖子: 133
主題: 9
精華: 0
積分: 147
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2024-11-11

3^#

發表於 2010-7-27 09:07 | 只看該作者

刪除純空白列(儲存格內若有公式,視為非空白)
Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

TOP

靜思自在 : 人要自愛，才能愛普天下的人。

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

請問如何將中間空白的列移除呢?

請問如何將中間空白的列移除呢?

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

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