博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2008年9月12日

摘要: Private Sub CommandButton1_Click() Dim Flg As Boolean For i = 1 To [a65536].End(xlUp).Row For j = 1 To [b65536].End(xlUp).Row If (Not Trim(Range("A" & CStr(i)).Text) = "") Then ... 阅读全文

posted @ 2008-09-12 14:04 Ran 阅读(950) 评论(0) 推荐(0)