可不可以通过VBA的方式，快速获取对应条件数据值

mind1238

abc123281 发表于 2018-10-7 15:53
路过而已
    善意的建议楼主在回复帮助你的老师时   不要评论谁的代码好或是更好
    无论有用或是无用 ...

是的，明白。谢谢提醒
是我想的不够周到

mind1238

一把小刀闯天下 发表于 2018-10-7 15:48
插入按钮，链接test这个过程即可

谢谢你
又学习了
我会更加努力学习的

mind1238

约定的童话 发表于 2018-10-7 15:19
楼主试一下吧，数据太多看的头晕...
Sub 定价()
Dim i

谢谢你
你也是很厉害的
可以学习到不同的方法
谢谢帮助和回复
非常感谢和感恩

abc123281

嗯嗯  这样很好

lsc900707

mind1238 发表于 2018-10-7 16:24
谢谢你
你也是很厉害的
可以学习到不同的方法

知错能改善莫大焉！

shi353

感覺運用dic跟vlookup方法很像
若直接使用vba運用vlookup去找關鍵值  也是一種方法吧!
若不熟vba者，可以增加輔助欄(結合3關鍵字)，不用vba直接在工作表用vlookup 函數去求得解答!
Sub test2()
Dim Brr()
[F1].CurrentRegion.Columns(5).Offset(1).ClearContents
arr = [A1].CurrentRegion
r = UBound(arr) - 1
ReDim Brr(1 To 2, 1 To r)
'-----------------------------
For i = 2 To UBound(arr)
    m = m + 1
    Brr(1, m) = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3)
    Brr(2, m) = arr(i, 4)
Next
'-----------------------------
Brr = Application.Transpose(Brr)
Set A = Range([F2], [F2].End(4))
For i = 1 To A.Cells.Count
    With A.Cells(i)
        On Error Resume Next   'if Not Found Error Happen Continue anyway!
        x = .Offset(, 1) & "|" & .Offset(, 2) & "|" & .Offset(, 3)
        .Offset(, 4) = Round(Application.VLookup(x, Brr, 2, 0), 2)
        If Err.Number <> 0 Then .Offset(, 4) = "No Found!"
        On Error GoTo 0        'Reset Err=0
    End With
Next
'-----------------------------
End Sub

AVEL

高版本EXCEL 可以考虑用这个公式
在数据源不存在重复条件数据的情况下使用：
K2 =+SUMIFS($D$2:$D$19,$A$2:$A$19,G2,$B$2:$B$19,H2,$C$2:$C$19,I2)
下拉后跟原先数据比对一下。

kuangben8

AVEL 发表于 2018-10-8 11:11
高版本EXCEL 可以考虑用这个公式
在数据源不存在重复条件数据的情况下使用：
K2 =+SUMIFS($D$2:$D$19,$A$ ...

盯着你的小尾巴看了半天，感觉动作一气呵成！高手也！！！

AVEL

kuangben8 发表于 2018-10-8 11:19
盯着你的小尾巴看了半天，感觉动作一气呵成！高手也！！！

哈哈 我当时看了有两分钟。