註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 刪一整列時, 如何避開合併上下列的儲存格
返回列表
下一主題
上一主題
發帖
刪一整列時, 如何避開合併上下列的儲存格
openpc
發短消息
加為好友
openpc
當前離線
UID
8256
帖子
25
主題
11
精華
0
積分
50
金錢
50
點名
0
作業系統
winxp
軟體版本
office2003
閱讀權限
20
性別
男
在線時間
15 小時
註冊時間
2012-2-16
最後登錄
2024-3-7
中學生
帖子
25
主題
11
精華
0
積分
50
點名
0
作業系統
winxp
軟體版本
office2003
閱讀權限
20
性別
男
註冊時間
2012-2-16
最後登錄
2024-3-7
1
#
跳轉到
»
倒序看帖
打印
字體大小:
t
T
發表於 2012-3-15 09:26
|
只看該作者
刪一整列時, 如何避開合併上下列的儲存格
如下的寫法會將合併
儲存格
的下列視同空白而刪除, 請教先進刪一整列時, 要
如何
避開合併上下列的儲存格不被刪除, 感謝!
For
i = 500 To 1 Step -1
If Application.CountA((Rows(i))) = 0 Then
Rows(i).Delete
End If
Next
樓主熱帖
copy 公式 , 貼上時只要值與數字格式, 簡便
vba 往下一列的指令
Range( ).Select的用法
Workbooks.Open 的用法
Range("a:a").Find(5)精準的用法
命令按鈕當中,如何能將Sheet1複製到Sheet2
時間的加法
請教:如何將B.XLS的儲存格 COPY 到A.XLS
autofilter 相關指令及函數
set 在find的使用時機
收藏
分享
hugh0620
發短消息
加為好友
hugh0620
(VBA向前衝)
當前離線
UID
2378
帖子
559
主題
58
精華
0
積分
626
金錢
626
點名
0
作業系統
win8
軟體版本
office2013
閱讀權限
50
性別
男
來自
TW
在線時間
283 小時
註冊時間
2010-11-22
最後登錄
2024-6-14
暱稱:
VBA向前衝
高中生
帖子
559
主題
58
精華
0
積分
626
點名
0
作業系統
win8
軟體版本
office2013
閱讀權限
50
性別
男
來自
TW
註冊時間
2010-11-22
最後登錄
2024-6-14
2
#
發表於 2012-3-15 09:57
|
只看該作者
回復
1#
openpc
樓主~ 這個可能是你需要的功能~
我有測試過了~ 500筆數據大概跑30sec
Sub ee()
Dim E As Range
For i = 500 To 1 Step -1
If Application.CountA((Rows(i))) = 0 Then
For j = 1 To 256
If Cells(i, j).MergeCells = True Then
GoTo 1
End If
Next
Rows(i).Delete
1
End If
Next
End Sub
複製代碼
學習才能提升自己
TOP
register313
發短消息
加為好友
register313
當前離線
麻辣 路人甲
UID
2468
帖子
967
主題
0
精華
0
積分
1001
金錢
1001
點名
0
作業系統
WIN XP
軟體版本
OFFICE 2003
閱讀權限
50
性別
男
來自
台北
在線時間
739 小時
註冊時間
2010-11-29
最後登錄
2022-5-17
頭銜:
麻辣 路人甲
大學生
帖子
967
主題
0
精華
0
積分
1001
點名
0
作業系統
WIN XP
軟體版本
OFFICE 2003
閱讀權限
50
性別
男
來自
台北
註冊時間
2010-11-29
最後登錄
2022-5-17
3
#
發表於 2012-3-15 10:54
|
只看該作者
回復
1#
openpc
Sub EE()
For i = 500 To 1 Step -1
If Application.CountA((Rows(i))) = 0 And Not IsNull(Rows(i).MergeCells) Then
Rows(i).Delete
End If
Next
End Sub
複製代碼
TOP
openpc
發短消息
加為好友
openpc
當前離線
UID
8256
帖子
25
主題
11
精華
0
積分
50
金錢
50
點名
0
作業系統
winxp
軟體版本
office2003
閱讀權限
20
性別
男
在線時間
15 小時
註冊時間
2012-2-16
最後登錄
2024-3-7
中學生
帖子
25
主題
11
精華
0
積分
50
點名
0
作業系統
winxp
軟體版本
office2003
閱讀權限
20
性別
男
註冊時間
2012-2-16
最後登錄
2024-3-7
4
#
發表於 2012-3-15 17:34
|
只看該作者
感謝二位先進指教,實用好用, 真是獲益良多.
TOP
靜思自在 :
太陽光大、父母恩大、君子量大,小人氣大。
返回列表
下一主題
上一主題
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲