麻辣家族討論版版 » Excel程式區 » 如何自動判定於原資料二列後插入一空白列???

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

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

中學生 Rank: 2

帖子: 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)

樓主熱帖

收藏

中學生 Rank: 2

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

論壇贊助勳章

4^#

發表於 2012-10-15 10:07 | 只看該作者

oobird版主，請問如果有標題列不算，也就是一樣是2列後入一列空白列，第一空白列的於第四列位置，請問巨集如何修改呢，煩請解惑，謝謝^^

中學生 Rank: 2

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

論壇贊助勳章

3^#

發表於 2012-7-5 23:45 | 只看該作者

感謝oobird版主賜教，謝謝．．巨集很方便又好用^^

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

2^#

發表於 2012-7-5 10:35 | 只看該作者

Sub yy()
Set c = Rows(3)
For i = 5 To [c65536].End(3).Row Step 2
Set c = Union(c, Rows(i))
Next
c.Insert
End Sub

複製代碼

靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。

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