返回列表 上一主題 發帖

如何自動判定於原資料二列後插入一空白列???

p6703

帖子
134 
主題
27 
精華
0 
積分
168 
點名
0  
作業系統
WINXP 
軟體版本
EXCEL 2003 
閱讀權限
20 
性別
男 
來自
雲林 
註冊時間
2010-10-6 
最後登錄
2018-5-13 

論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-7-5 08:38 | 只看該作者

如何自動判定於原資料二列後插入一空白列???

如何在原資料以巨集設定自動於二列後插入一空白列，附件原資料及希望變更後的資料，請各高手指教，謝謝^^

Book10.rar (1.44 KB)
收藏 分享

p6703

帖子
134 
主題
27 
精華
0 
積分
168 
點名
0  
作業系統
WINXP 
軟體版本
EXCEL 2003 
閱讀權限
20 
性別
男 
來自
雲林 
註冊時間
2010-10-6 
最後登錄
2018-5-13 

論壇贊助勳章
4#
發表於 2012-10-15 10:07 | 只看該作者
oobird版主，請問如果有標題列不算，也就是一樣是2列後入一列空白列，第一空白列的於第四列位置，請問巨集如何修改呢，煩請解惑，謝謝^^

TOP

p6703

帖子
134 
主題
27 
精華
0 
積分
168 
點名
0  
作業系統
WINXP 
軟體版本
EXCEL 2003 
閱讀權限
20 
性別
男 
來自
雲林 
註冊時間
2010-10-6 
最後登錄
2018-5-13 

論壇贊助勳章
3#
發表於 2012-7-5 23:45 | 只看該作者
感謝oobird版主賜教，謝謝．．巨集很方便又好用^^

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
2#
發表於 2012-7-5 10:35 | 只看該作者
  1. Sub yy()
  2. Set c = Rows(3)
  3. For i = 5 To [c65536].End(3).Row Step 2
  4. Set c = Union(c, Rows(i))
  5. Next
  6. c.Insert
  7. End Sub
複製代碼

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題