ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 118|回复: 4

[求助] 我想把总表的数据分成每个工序每天的日计划。

[复制链接]

TA的精华主题

TA的得分主题

发表于 2024-10-22 11:21 | 显示全部楼层 |阅读模式
每道工序每日报表,每次复制需要大量时间,请各路大神能否帮忙修改一下,或者是用函数,达到这个效果。
工作表1 是总表
工作表2是想达到的效果   

工作簿1.zip

13.84 KB, 下载次数: 18

文件

TA的精华主题

TA的得分主题

发表于 2024-10-22 12:13 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
用的应该是wps,那就看看filter函数吧,这个函数应该可以解决你的问题

TA的精华主题

TA的得分主题

发表于 2024-10-23 10:04 | 显示全部楼层
Sub 筛选数据()
Dim ar As Variant
Dim i As Long, r As Long, rs As Long
With Sheets("sheet1")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    y = .Cells(1, Columns.Count).End(xlToLeft).Column
    ar = .Range(.Cells(1, 1), .Cells(r, y))
End With
Dim br()
ReDim br(1 To 10000, 1 To 4)
With ActiveSheet
    rq = .[a3]
    If rq = "" Then MsgBox "请输入查询日期": End
    If Not IsDate(rq) Then MsgBox "您输入的不是日期格式!": End
    For j = 5 To UBound(ar, 2)
        w = 0
        If ar(1, j) <> "" Then
            For i = 2 To UBound(ar)
                If ar(i, j) <> "" Then
                    If IsDate(ar(i, j)) Then
                        If ar(i, j) = rq Then
                            w = w + 1
                            n = n + 1
                            If w = 1 Then br(n, 1) = ar(1, j)
                            For s = 1 To 3
                                br(n, s + 1) = ar(i, s)
                            Next s
                        End If
                    End If
                End If
            Next i
        End If
    Next j
    If n = "" Then MsgBox "没有需要查询的数据!": End
    .UsedRange.Offset(3) = Empty
    .[a4].Resize(n, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub

TA的精华主题

TA的得分主题

发表于 2024-10-23 10:04 | 显示全部楼层
工作簿1.rar (22.63 KB, 下载次数: 16)

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-10-27 15:42 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-1 09:22 , Processed in 0.039592 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表