excel 100/200/300返回最少的之值
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询