Question

excel 100/200/300返回最少的之值

350/200/100
1500/1200/800
1500/800
返回最少的值

Answer 1

追问

问题他在同一个单元格。如果不在同一个单元格。直接用max就行了

追答

没办法只能上大招了

Sub min()
Dim i%, n%, j%, min%
n = 0
For i = 1 To Len(Sheet1.Cells(1, 1))
If Mid(Sheet1.Cells(1, 1), i, 1) = "/" Then n = n + 1
Next i
ReDim Count(n) As Integer
Count(0) = 0
For i = 1 To n
For j = 1 + Count(i - 1) To Len(Sheet1.Cells(1, 1))
If Mid(Sheet1.Cells(1, 1), j, 1) = "/" Then
Count(i) = j
GoTo nxt:
End If
Next j
nxt:
Next i
ReDim vl(1 To n + 1) As String
vl(1) = Mid(Sheet1.Cells(1, 1), 1, Count(1) - 1)
Select Case n
Case 1
vl(2) = Mid(Sheet1.Cells(1, 1), Count(1) + 1, Len(Sheet1.Cells(1, 1)) - Count(1))
Case Else
For i = 1 To n - 1
vl(i + 1) = Mid(Sheet1.Cells(1, 1), Count(i) + 1, Count(1 + i) - Count(i) - 1)
Next i
vl(n + 1) = Mid(Sheet1.Cells(1, 1), Count(n) + 1, Len(Sheet1.Cells(1, 1)) - Count(n))
End Select
min = Val(vl(1))
For i = 2 To n + 1
Select Case Val(vl(i))
Case Is < min
min = Val(vl(i))
End Select
Next i
Sheet1.Cells(1, 2) = min
End Sub