检测药品价格是否合乎管控要求

shiruiqiang

业务员 发表于 2023-3-13 19:55
有点小瑕疵，但修改了肯定能用！比如定义的变量

有啥错误？字典，item以表一的2列对比，取低值；如有一品多规，再比较，取最低值。

gwjkkkkk

参与一下。。。

汉唐

凑个数.....

业务员

shiruiqiang 发表于 2023-3-13 19:58
有啥错误？字典，item以表一的2列对比，取低值；如有一品多规，再比较，取最低值。

key，ss。定义

全党

Sub shishi()
arr = Sheets("四川挂网价").Range("a1").CurrentRegion
Set dic = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
If arr(i, 2) Or arr(i, 3) <> "" Then
    If Not dic.exists(arr(i, 1)) Then
     dic(arr(i, 1)) = Excel.WorksheetFunction.Small(Array(arr(i, 2), arr(i, 3)), 1)
      Else
      dic(arr(i, 1)) = Excel.WorksheetFunction.Small(Array(dic(arr(i, 1)), arr(i, 2), arr(i, 3)), 1)
    End If
  Else
  dic(arr(i, 1)) = ""
  End If
Next
With Sheet2
.Range("a2:a10000").Clear
.Range("c2:c10000").Clear
.Range("a2").Resize(dic.Count, 1) = WorksheetFunction.Transpose(dic.keys)
.Range("c2").Resize(dic.Count, 1) = WorksheetFunction.Transpose(dic.items)
End With
End Sub

业务员

gwjkkkkk 发表于 2023-3-13 20:02
参与一下。。。

这个简洁很多

业务员

汉唐 发表于 2023-3-13 20:16
凑个数.....

楼上gwjkkkkk的代码值得参考