判断条件为大于某个时间怎么编写语句啊

追梦不醉梦

  我想使用公式对几个附表进行汇总，“总表”是我汇总后的表格，我每天会收到很多附表，而我只需要复制附表中“填报日期”一栏大于昨天中午12点的行，请问我该如何添加IF判断语句，并且，汇总工作我每天都要做，所以公式中应该不能出现准确的日期，只能使用today代替，请各位大神帮忙

chentonny

你原来的汇总表有两个问题
一是每次循环都计算一次行数，降低运行速度
二是没有释放内存。如果子表很多，会越来越慢，直到挂掉。
写IF语句前要先提取两个数据，一是日期，二是时间。
IF语句中要做两个判断，一是提取的日期=今天-1，二是时间>12：00

追梦不醉梦

chentonny 发表于 2018-10-15 00:45
你原来的汇总表有两个问题
一是每次循环都计算一次行数，降低运行速度
二是没有释放内存。如果子表很多， ...

对，没错，前两个问题还好说，慢慢运算，至少比人快，第三个判断语句不知道怎么写

liulang0808

1. Sub 按钮2_Click()
   
2.    
   
3.     Dim vReadData1 As Variant
   
4.     Dim vReadData2 As Variant
   
5.     Dim vReadData3 As Variant
   
6.     Dim vReadData4 As Variant
   
7.     Dim vReadData5 As Variant
   
8.     Dim wWB As Workbook
   
9.     Dim nCol As Integer
   
10.     Dim sPath As String
    
11.    
    
12.     Dim sFile As String
    
13.     Dim B As String
    
14.     Dim vFill As Variant
    
15.     Dim nRow As Double
    
16.      
    
17.     Dim i%, r%, j%, c As Range
    
18.    
    
19.     Application.ScreenUpdating = False
    
20.     Range("a2:e70").ClearContents
    
21.    
    
22.     Set wWB = ThisWorkbook
    
23.     sPath = wWB.Path & ""
    
24.     sFile = Dir(sPath & "*.xls*")
    
25.     Do While sFile <> ""
    
26.         If sFile <> ThisWorkbook.Name Then
    
27.             With Workbooks.Open(sPath & sFile)
    
28.                 vReadData1 = .Sheets("Sheet").UsedRange.Value
    
29.                 .Close False
    
30.             End With
    
31.             For nRow = 2 To UBound(vReadData1)
    
32.                '需在此处加入填报日期IF语句判断
    
33.                x = CDate(vReadData1(nRow, 3))
    
34.                If CDate(vReadData1(nRow, 3)) - (Date - 0.5) >= 0 Then
    
35.                     r = Range("b65536").End(xlUp).Row + 1
    
36.                     For nCol = 2 To 4
    
37.                         i = nCol + 2
    
38.                         Cells(r, nCol) = vReadData1(nRow, i)
    
39.                     Next
    
40.                 End If
    
41.             Next
    
42.         End If
    
43.        sFile = Dir
    
44.     Loop
    
45.     r = Range("b65536").End(xlUp).Row
    
46.     Range(Cells(r, 1), [a2]).Value = Date
    
47.     Range("a1:e100").Sort key1:=Range("b1"), order1:=xlAscending, Header:=xlYes
    
48.     Application.ScreenUpdating = False
    
49. End Sub

复制代码

liulang0808

代码做了调整，供参考。。。。。。

追梦不醉梦

liulang0808 发表于 2018-10-15 07:49
代码做了调整，供参考。。。。。。

感谢版主帮忙，非常非常感谢，这样每天省了很多工作