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

bossing

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

bossing

空白行忽略

心的启点

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

bossing

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

zpy2

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

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

htl36907697

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

代码见附件，请测试。

bossing

多谢高手

gwjkkkkk

参与一下。。。

bossing

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

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