求助:数据匹配:用VBA找出对应值

YuliaLiii

我已经把四种动作类型的达成率选取了最小的三个,那么如何用VBA根据已经选取的的达成率匹配出中唯一的指标,指标不需要排序,只要达成率数据对的上,并且是唯一的不重复的就好了.

指标	动作类型	达成率
销售顾问认证率	指标设定与分析	50.0%
总部专项培训参训率	指标设定与分析	100.0%
总部专项培训合格率	指标设定与分析	50.0%
总部转训执行率	指标设定与分析	100.0%
绩效指标使用率	指标设定与分析	50.0%
绩效指标提升率	指标设定与分析	100.0%
融资额度使用率	指标趋势	0.0%
融资额度充足率	指标趋势	50.0%
资金封闭率	指标趋势	100.0%
绩效指标提升率	指标趋势	100.0%
CSS售后	支撑动作	66.7%
客户投诉率	支撑动作	50.0%
推荐上报率（新车）	支撑动作	66.7%
车主入会率	支撑动作	70.0%
服务营销活动开展率	支撑动作	100.0%
中层管理人员在职时间	支撑动作	100.0%
融资额度使用率	绩效体现	100.0%
融资额度充足率	绩效体现	50.0%
资金封闭率	绩效体现	50.0%
新增潜客目标达成率	绩效体现	100.0%
试乘试驾率	绩效体现	50.0%

动作类型	bottom3指标	达成率
指标设定与分析		50.0%
		50.0%
		50.0%
支撑动作		0.0%
		50.0%
		100.0%
指标趋势		50.0%
		66.7%
		70.0%
绩效体现		50.0%
		50.0%
		50.0%
		100.0%

YuliaLiii

朱荣兴 发表于 2019-2-1 10:58
从小到大排序后,返回达成率    返回哪个达成率，最小值，还是最大值？？？

返回最小的三个达成率数据,只要三个,多余的重复数据不用显示出来

liangmutou01

见代码：
Sub tongji()
  Dim hh As Long, h As Long, dyg As Range
  hh = [a65536].End(3).Row
  Range("a1:c" & hh).Sort key1:="动作类型", key2:="达成率", Header:=xlYes
  For h = 2 To hh
    For Each dyg In [e8:e17]
      If Cells(h, 2) = dyg.Value Then
        Range(Cells(dyg.Row, 6), Cells(dyg.Row, 7)) = Array(Range("a" & h), Range("c" & h))
        Range(Cells(dyg.Row + 1, 6), Cells(dyg.Row + 1, 7)) = Array(Range("a" & h + 1), Range("c" & h + 1))
        Range(Cells(dyg.Row + 2, 6), Cells(dyg.Row + 2, 7)) = Array(Range("a" & h + 2), Range("c" & h + 2))
        Exit For
      End If
    Next dyg
    h = 行号(Range("b" & h))
  Next h
End Sub
Function 行号(dyg As Range) As Long
  Dim lie As Integer, h As Long
  lie = dyg.Column
  For h = dyg.Row To 65536
    If Cells(h + 1, lie).Value <> Cells(h, lie).Value Then Exit For
  Next h
  行号 = h
End Function

liangmutou01

把附件发给你。