標題: 如何自動判定於原資料二列後插入一空白列??? [打印本頁]

---

作者: p6703    時間: 2012-7-5 08:38     標題: 如何自動判定於原資料二列後插入一空白列???

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

[attach]11581[/attach]

---

作者: oobird    時間: 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

複製代碼

---

作者: p6703    時間: 2012-7-5 23:45

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

---

作者: p6703    時間: 2012-10-15 10:07

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)