不固定行为数据区域的条件提取

sc204400

对物料进行采购价格分析，将同一物料分左右二个区域存放，每个物料数据行数不固定但物料间有一整行空行区别，如在取数表的B7 物料道理先在A列查找，如A列不存在则在G列查找，查找后将该物料的区域数据全部复制到取数表中，物料数据约10万行， 不固定行的数据提取.rar (10.6 KB, 下载次数: 5)

2022-12-1 20:42 上传

点击文件名下载附件

，示例数据如附件

582766

怎么说呢，做个窗体模糊查询吧，你的表结构不好，

sc204400

2年数据全在一个表中，这样列示较直观的查看差异情况，也就是对比分析较直观

清风竹-

请看附件。

gwjkkkkk

Sub test()
    Dim arr, brr, i&, j&, R&, m&, n&, strFind$, iBRow&, iERow&, iBCol&, iECol&, iPosRow&
    strFind = Sheets(2).[B7]
    If strFind = "" Then MsgBox "查找数据为空，请检查！": Exit Sub
    arr = Sheets(1).UsedRange
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
    For i = 1 To 2 '
      For j = 1 To UBound(arr, 2)
        brr(i, j) = arr(i, j)
      Next j
    Next i
    With Sheets(1)
        For i = 1 To 2
            R = 2: iBCol = (i - 1) * 6 + 1: iECol = (i - 1) * 6 + 5
            For j = 3 To UBound(arr)
               If arr(j, iBCol) = strFind Then
                  iBRow = j
                  iERow = IIf(.Cells(j, iBCol).End(xlDown).Row - 1 > UBound(arr), UBound(arr), .Cells(j, iBCol).End(xlDown).Row - 1)
                  For m = iBRow To iERow
                     R = R + 1
                     For n = iBCol To iECol
                       brr(R, n) = arr(m, n)
                     Next n
                  Next m
                  If R > iPosRow Then iPosRow = R
                  Exit For
                End If
            Next j
        Next i
        If iPosRow = 0 Then MsgBox "未查到数据": Exit Sub
        Sheets(2).Range("A9:K9").Resize(1000).ClearContents
        Sheets(2).[A9].Resize(iPosRow, UBound(brr, 2)) = brr
    End With
End Sub

sc204400

清风竹- 发表于 2022-12-1 22:13
请看附件。

右边2022年的取数还是取到了2021的数据

gwjkkkkk

请参考附件，。。

sc204400

gwjkkkkk 发表于 2022-12-1 23:27
请参考附件，。。

结果正确，代码完美，努力学习   

hcm19522

M3:P9{=IFERROR(IF(M2="","",INDIRECT(TEXT(SUM(($A$1:$F$1=$N$1)*($A$3:$F$16=$P$1)*(ROW(3:16)/1%+COLUMN(A:F)+1)),"!R0C00"),)&""),"")

msnmurong

gwjkkkkk 发表于 2022-12-1 23:27
请参考附件，。。

老师能看下我的帖子如何解决吗https://club.excelhome.net/thread-1648041-1-1.html