本帖最後由 t8899 於 2014-4-28 07:37 編輯
我想找A欄 倒數第一個小於 TimeValue("12:48:20") 右移一格(B欄)
再統計B1到此格的合計
或有更好的寫法??
 Book2.rar (7.67 KB)
Sub aaa()
Dim x As Date
x = TimeValue("12:48:20")
For k = 1 To 165 Step -1
If Cells(k, 1) < x Then
Set t = Cells(k, 1).Offset(0, 1)
t.Offset(t, t, 0, -counta(range("b26:"& t), 1).Select
Exit For
End If
Next
End Sub |
發表於 2014-4-28 07:35
| 
