请问大神如何只计算有数值的单元格

bossing · 发表于 2023-4-19 10:33

本帖最后由 bossing 于 2023-4-19 11:17 编辑

每次招标的数量不是固定的希望可以通过VBA自动算出有数值的行的最低价格和最低的供应商

bossing · 发表于 2023-4-19 10:39

空白行忽略

心的启点 · 发表于 2023-4-19 11:00

你这就不能描述清楚吗，根据什么条件要达到什么样的结果？

bossing · 发表于 2023-4-19 11:08

每次招标的数量不是固定的希望可以通过VBA自动算出有数值的行的最低价格和最低的供应商

zpy2 · 发表于 2023-4-20 15:08

bossing 发表于 2023-4-19 11:08
每次招标的数量不是固定的希望可以通过VBA自动算出有数值的行的最低价格和最低的供应商

最好模拟一下结果，方便大家理解

htl36907697 · 发表于 2023-4-20 16:18

Sub 最小值与供应商()
Set d最低价 = CreateObject("scripting.dictionary")
Set d供应商 = CreateObject("scripting.dictionary")
arr = Sheet1.Range("a1").CurrentRegion
For x = 3 To UBound(arr)
      d最低价(arr(x, 1)) = 100000000
      For y = 7 To 11
         If d最低价(arr(x, 1)) > arr(x, y) Then
            d最低价(arr(x, 1)) = arr(x, y)
         End If
      Next
      arr(x, 13) = d最低价(arr(x, 1))
Next
For x = 3 To UBound(arr)
      For y = 7 To 11
         If arr(x, y) = d最低价(arr(x, 1)) Then
            d供应商(arr(x, 1)) = d供应商(arr(x, 1)) & " " & arr(2, y)
         End If
      Next
      arr(x, 12) = d供应商(arr(x, 1))
Next
Sheet1.Range("a1").CurrentRegion = arr
MsgBox "ok"
End Sub

htl36907697 · 发表于 2023-4-20 16:19

代码见附件，请测试。

bossing · 发表于 2023-4-20 20:36

多谢高手

gwjkkkkk · 发表于 2023-4-20 21:03

参与一下。。。

bossing · 发表于 2023-4-20 21:16

gwjkkkkk 发表于 2023-4-20 21:03
参与一下。。。

大神这么按键上面加个密码（密文）错误三次自动退出这个表格今天搞了好久一直是明文

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

[求助] 请问大神如何只计算有数值的单元格

评分

[求助] 请问大神 如何只计算有数值的单元格

评分

[求助] 请问大神如何只计算有数值的单元格