請教關於利用迴圈判斷在需要的地方插入列 - Excel程式區

[發問] 請教關於利用迴圈判斷在需要的地方插入列

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2011-10-28 16:28 | 顯示全部帖子

回復 1# a703130

Sub Ex()
Dim Rng(1 To 2) As Range
With Sheets("Page1")
Set Rng(1) = .Range("a2")
Set Rng(2) = Rng(1).End(xlDown)
Do While Rng(1).Row <> Rows.Count
If .Range(Rng(1), Rng(2)).Rows.Count >= 3 Then .Range(Rng(1).Offset(1), Rng(2).Offset(-1)).EntireRow.Hidden = True
Set Rng(1) = Rng(2).End(xlDown)
Set Rng(2) = Rng(1).End(xlDown)
Loop
End With
End Sub

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-11-2 09:57 | 顯示全部帖子

回復 Hsieh
此方法可行a703130 發表於 2011/11/2 09:26

樓主Excel的版本為2003 依你的附檔來操作 Hsieh 超版的程式
Rng1.EntireRow.Insert 這裡的程式碼會發生錯誤 .
如同 oobird 超版說插入空白列後就大於65536列了。你的Office2003不支持。
所以樓主可能需升級Excel的版本.

靜思自在 : 人要知福、惜福、再造福。