標題: 刪列 [打印本頁]

---

作者: myleoyes    時間: 2010-6-28 11:21     標題: 刪列

各位前輩你們好!
　　      前輩!
          Sub 差異列刪除()
              Dim R
              R = (ActiveCell.Row Mod 12)
              R = "C" & ActiveCell.Row - R + 1 & ":IV" & ActiveCell.Row + (12 - R)
              Range(R).Delete
              Range("A23") = ""
              End Sub　
          請知道的前輩,不吝賜教謝謝再三!!

---

作者: GBKEE    時間: 2010-6-28 20:39

回復 1# myleoyes
   R = ((ActiveCell.Row - 2) Mod 12)

---

作者: myleoyes    時間: 2010-6-29 20:57

回復 2# GBKEE
GBKEE前輩你好!
　　　　 良師!甘溫囉...謝謝再三!!

---

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