VBA：将表格分成3组并比较时间（Excel）

作者: trpnest
发布时间: 2024-10-05 11:38:44 (10天前)
转自：

3 条回复

0#
回复此人
VIP | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 该宏将提取所有在10分钟内拥有3G的1G线路，以及20G内的5G线路。 </p> <pre> <code> Sub Macro2() Dim lLastRow As Long, shtOrg As Worksheet, shtDest As Worksheet, rgLoop As Range 'turn off updates to speed up code execution With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With Set shtOrg = ActiveSheet Set shtDest = Sheets.Add lLastRow = shtOrg.Cells(Rows.Count, 1).End(xlUp).Row shtOrg.Range("D2:D" & lLastRow).FormulaR1C1 = _ "=IF(RC[-2]=""1G"",IF(COUNTIFS(C[-3],"">="" &RC[-3],C[-3],""<=""&RC[-3]+10/1440,C[-2],""3G"")*COUNTIFS(C[-3],"">="" &RC[-3],C[-3],""<=""&RC[-3]+20/1440,C[-2],""5G"")>0,TRUE,""""),"""")" shtOrg.Range("E2:E" & lLastRow).FormulaR1C1 = _ "=N(IF(RC[-3]=""3G"",COUNTIFS(C[-1],TRUE,C[-4],""<=""&RC[-4],C[-4],"">=""&RC[-4]-10/1440),IF(RC[-3]=""5G"",COUNTIFS(C[-1],TRUE,C[-4],""<=""&RC[-4],C[-4],"">=""&RC[-4]-20/1440),"""")))>0" shtOrg.Range("A1:E" & lLastRow).AutoFilter field:=4, Criteria1:="TRUE" shtOrg.Range("A1:C" & lLastRow).SpecialCells(xlCellTypeVisible).Copy shtDest.Cells(1, 1) shtOrg.Range("A1:E" & lLastRow).AutoFilter shtOrg.Range("A1:E" & lLastRow).AutoFilter field:=5, Criteria1:="TRUE" shtOrg.Range("A2:C" & lLastRow).SpecialCells(xlCellTypeVisible).Copy shtDest.Cells(Rows.Count, 1).End(xlUp).Offset(1) shtOrg.Columns("D:E").ClearContents shtOrg.Range("A1:E" & lLastRow).AutoFilter With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic End With End Sub </code> </pre> </DIV>

编辑
1#
回复此人
polo | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 在第一行数据中输入此公式（我假设第2行）： </p> <pre> <code> =AND(B2="1G",SUM((B3:$B$8="3G")*(A3:$A$8<=A2+"00:10")*(A3:$A$8>=A2)),SUM((B3:$B$8="5G")*(A3:$A$8<=A2+"00:20")*(A3:$A$8>=A2))) </code> </pre> <P> 将公式中的$ B $ 8和$ A $ 8更改为最后一行数据。 </p> <P> <EM> 的<strong> 输入公式后，而不是按 <code> Enter </code> ，按 <code> Ctrl+Shift+Enter </code> </强> </EM> 。公式周围应出现圆括号。 </p> <P> 现在拖动公式。评估为真的任何东西都符合您的条件。它只在当前位置下方搜索，因此最好订购您的数据。 </p> <P> 现在使用自动过滤器来获取相关行。如果我理解正确你可以在另一张纸上使用数据表，但我不知道怎么做:) </p> </DIV>

编辑

登录后才能参与评论