參照Y欄找到X欄空白的位置

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

1^# 跳轉到 »

發表於 2010-8-15 17:09 | 顯示全部帖子

回復 3# myleoyes

Sub Ex()
Dim R%, C%
With Sheet1
C = Month(Date) * 3
R = IIf(.Cells(Rows.Count, C).End(3).Row > .Cells(Rows.Count, C + 1).End(3).Row, .Cells(Rows.Count, C).End(3).Row, .Cells(Rows.Count, C + 1).End(3).Row)
.Cells(R + 1, C).Select
End With
End Sub

複製代碼

靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。