自动提取符合条件的单元格数据

bjftlx

求大神帮忙，编写vba，当按下按钮后，自动判断明细表中B列日期跟当天日期一致的，并将明细表中的单号列复制到1表中b列。

无关岁月

副本新建 Microsoft Excel 工作表.7z (16.24 KB, 下载次数: 10)

2024-3-4 20:55 上传

点击文件名下载附件

bjftlx

大神好，我是小白，刚才看了您帮忙写的代码，可以满足我的需求，没有研究明白，烦请帮忙给修改下，感谢

sunshuangzhong

Sub 按钮1_Click()
Dim arr, i&, m&
arr = Sheet3.[c1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 2 To UBound(arr)
    If Application.Text(arr(i, 38), "dd / mm / yyyy") = Application.Text(Date, "dd / mm / yyyy") Then '“ dd / mm / yyyy”
        m = m + 1
        brr(m, 1) = arr(i, 2)
    End If
Next
Sheet2.[b3].Resize(m) = brr
End Sub