求教--怎么把符合某个条件的整行数据提取到另一个表中

zxczxc123456

才开始学习表格，算是0基础吧，现在从事质量工作，做质量统计，现想做一个表，根据如图总检数据里的不合格品情况，不合格品审理单识别总检表单里的不合格条件，当满足不合格条件后，就把总检里面的产品信息自动提取到不合格品表里，这样平时只做总表的工作，月报分别打印分表就可以了，望大家帮帮忙，谢谢

铁马1980

没太明白,是说"不合格审理单"统计表最终昂视要按照不合格原因进行分类汇总吗?还是把不合格的记录单独拿出来做个明细账?

呆着

在个要VBA实现，公式好像没有想到

half-life

这个用VBA实现大致上是这样的：
————————————————————我是分界线————————————————————————————————
Option Explicit

Sub 查找原因并登记()
    '找到不合格的原因，并把不合格的产品信息登记到不合格审理单中
    Dim i, unnumber, w1 As Worksheet, w2 As Worksheet
    'unnumber 是计数器，便于有顺序的粘贴不合格的产品
    Set w1 = Worksheets("总检质量数据登记")
    Set w2 = Worksheets("不合格审理单")
    i = 4
    unnumber = 1

    Do While Len(w1.Cells(i, 6)) > 0
        If Len(Trim(w1.Cells(i, 6))) > 2 Then

            w2.Cells(unnumber + 2, 1) = w1.Cells(i, 1)
            w2.Cells(unnumber + 2, 2) = w1.Cells(i, 2)
            w2.Cells(unnumber + 2, 3) = w1.Cells(i, 3)
            w2.Cells(unnumber + 2, 4) = w1.Cells(i, 4)
            w2.Cells(unnumber + 2, 7) = w1.Cells(i, 6)

            unnumber = unnumber + 1

        End If

        i = i + 1
    Loop

End Sub

half-life

half-life 发表于 2020-12-6 21:00
这个用VBA实现大致上是这样的：
————————————————————我是分界线————————— ...

我也是新人，这是我现在暂时想到的

呆着

想起来了，OFFICE365版本里有这个函数，符合条件的可以整行提取过去，百度查一下OFFICE365新增函数就行了，具体哪个一下子想不起来，好像是FILTER,我没记错的话

初学者ice

我是新手，不知道是不是你要的效果！！