VBA 根据日期筛选数据

筛选两个日期间的全部数据

Dim a, b, c
a = Format(Date, "yyyy/m") '当前年月日

MsgBox a '显示日期时间

'当前月份加4
b = DateAdd("m", 4, a)

Debug.Print b

Dim Rng As Range, arr As Variant
Dim EndRow As Long, EndCol As Long
Dim Rngtime As Range
With Sheets("PM")

'获取A列最后一行（非空行）的行号
EndRow = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row

'获取第一行最后一列（非空列）的列号
EndCol = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column

'保存数据
Set Rng = .Range(.Cells(1, 1), .Cells(EndRow, EndCol))
'存入数组
arr = Rng.Value
'end time
' Set Rngtime = .Range(.Cells(1, 3), .Cells(EndRow, 3))
End With

' 循环筛选符合条件的数据
'
' 重新声明数组，用于保存筛选出来的数据
ReDim Brr(1 To EndCol, 1 To 1)
' 初始化筛选结果的数量
n = 0
For i = LBound(arr) + 1 To UBound(arr)
If DateDiff("m", a, CDate(arr(i, 3))) >= 0 And DateDiff("m", CDate(arr(i, 3)), b) > 0 Then
'时间在 Arr=Rng.Value的时候已经自动转为TimeValue
n = n + 1
ReDim Preserve Brr(1 To EndCol, 1 To n)
For j = 1 To EndCol
Brr(j, n) = arr(i, j)
Next j
End If
Next i

VBA 根据日期筛选数据相关推荐

python按照日期筛选数据_Pandas日期数据处理：如何按日期筛选、显示及统计数据...
前言 pandas有着强大的日期数据处理功能,本期我们来了解下pandas处理日期数据的一些基本功能,主要包括以下三个方面: 按日期筛选数据按日期显示数据按日期统计数据运行环境为 windows ...
python按照日期筛选数据_日期时间范围上的Python筛选器？
我有一些包含开始时间和结束时间的数据(datetime格式),我想根据更受限制的日期范围计算持续时间(以小时为单位).但到目前为止,我还没有成功.(对python还是个业余爱好者.) 示例:John ...
vue 通过日期筛选数据
此片博客介绍的方法是通过请求后台数据给的状态,然后把自己选择的时间传过去实现筛选的,根据业务逻辑来参考吧! 下篇我们会说下通过vue过滤器来实现的方法! 业务逻辑:首先前端需要获取其用户选择的日期数据 ...
python按照日期筛选数据_pandas 按日期范围筛选数据的实现
pandas 是 python 中一个功能强大的库,这里就不再复述了,简单介绍下用日期范围筛选 pandas 数据. 日期转换用来筛选的列是 date 类型,所以这里要把要筛选的日期范围从字符串转成 ...
python按照日期筛选数据_python – 按时间戳列筛选/选择pandas dataframe行
我是熊猫新手.我的数据框有两列dt(日期时间戳)和值. 给出两个开始和结束数据时间戳:是否有一种简单的方法可以从包含两个日期时间戳之间的行的原始数据帧创建新数据帧? dt value 84 7/23/ ...
Access/VBA/Excel-多条件筛选数据-10
微信公众号原文系统:Windows 7 软件:Excel 2010 / Access 2010 这个系列开展一个新的篇章,重点关注Access数据库主体框架:以Excel作为操作界面,Access ...
R语言基于日期范围筛选数据实战（Subset by a Date Range）:日期范围之内的数据、日期范围之外的数据、日期之后的数据、日期之前的数据
R语言基于日期范围筛选数据实战(Subset by a Date Range):日期范围之内的数据.日期范围之外的数据.日期之后的数据.日期之前的数据目录 R语言基于日期范围筛选数据实战(Subse ...
pandas 按日期范围筛选数据的实现
<h1 class="title">pandas 按日期范围筛选数据的实现</h1><div class="info"> ...
sql server根据日期筛选出工作日的数据
sql server根据日期筛选出工作日的数据 1.如果单纯筛选出除周六和周日的数据 SELECT * FROM 你创建的表 WHERE DATEPART(weekday,字段(日期)) <&g ...

VBA 根据日期筛选数据

VBA 根据日期筛选数据相关推荐

最新文章

热门文章