[已解决]如何用循环语句在A列上查找日期出现的首行？谢谢~

286669915

麻烦帮忙告诉一下VBA代码，不胜感激~

最佳答案

月排行榜 / 总排行榜

zjcat35

2012-3-14 13:31

1. Sub a()
   
2.     Dim i As Integer
   
3.     For i = 1 To [a65536].End(3).Row
   
4.         If VBA.IsDate(Cells(i, 1)) Then
   
5.             MsgBox "出现日期的首行是第" & i & "行"
   
6.             Exit For
   
7.         End If
   
8.     Next i
   
9. End Sub

复制代码

跳转到最佳答案楼层

zjcat35

1. Sub a()
   
2.     Dim i As Integer
   
3.     For i = 1 To [a65536].End(3).Row
   
4.         If VBA.IsDate(Cells(i, 1)) Then
   
5.             MsgBox "出现日期的首行是第" & i & "行"
   
6.             Exit For
   
7.         End If
   
8.     Next i
   
9. End Sub

复制代码

286669915

菜鸟锐

真厉害啊！！！！！