问题已解决，谢谢各位老师！

LOYOTO · 发表于 2023-6-25 00:12

本帖最后由 LOYOTO 于 2023-6-25 10:59 编辑

问题已解决，问题已解决，问题已解决，谢谢各位老师！

liulang0808 · 发表于 2023-6-25 07:15

Sub test()
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
For j = 2 To UBound(arr)
      If Not d.exists(arr(j, 1)) Then
         Set d(arr(j, 1)) = CreateObject("scripting.dictionary")
      End If
      brr = Split(arr(j, 3), "-")
      d(arr(j, 1))(Val(brr(0))) = ""
      d(arr(j, 1))(Val(brr(1))) = ""
Next
r = 1
For Each k In d.keys
      r = r + 1
      Cells(r, 13) = k
      Cells(r, 14) = WorksheetFunction.Min(d(k).keys) & "-" & WorksheetFunction.Max(d(k).keys)
Next k
End Sub

liulang0808 · 发表于 2023-6-25 07:15

统计最大值和最小值.zip (18.93 KB, 下载次数: 6)

limonet · 发表于 2023-6-25 10:23

代码审核中。

limonet · 发表于 2023-6-25 10:24

Sub limonet()
Dim Cn As Object, StrSQL$
Set Cn = CreateObject("adodb.connection")
Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
StrSQL = "select 产品批号,min(left([产品误差值],3))&'-'&max(right([产品误差值],3)) from [产品清单$a:c] GROUP BY 产品批号"
Range("J2").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

LOYOTO · 发表于 2023-6-25 10:36

本帖最后由 LOYOTO 于 2023-6-25 10:43 编辑

liulang0808 发表于 2023-6-25 07:15
Sub test()
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion

你好，老师，能不能保留以为小数点，例如 1=1.0 2=2.0，代码如何修改？

liulang0808 · 发表于 2023-6-25 10:53

统计最大值和最小值.zip (19.58 KB, 下载次数: 5)
供参考。。。。。

		自动登录	找回密码
密码			免费注册

[已解决] 问题已解决，谢谢各位老师！

评分