Excel VBA如何找到指定的字然後抓取它下排的数值找出最大值与最小值?

Question

各位大神:
目前小弟可以用VBA把CSV档案汇入，但是汇入後如果需要找到指定的字，例如"ABC"，找到ABC之後他下面会有一排数值，如何可以找出ABC之後把它下面的一排数值自动找出最大值与最小值?

Answer 1

如图，同一列都为同一字段的数据，可以使用下面的代码。

修改what的值为实际值即可，找出的结果以msgbox显示

Sub MaxMin()
    Dim what As String
    Dim imax As Long, imin As Long
    what = "ABC"
    imax = WorksheetFunction.Max(Columns(Rows(1).Find(what).Column))
    imin = WorksheetFunction.Min(Columns(Rows(1).Find(what).Column))
    MsgBox "最大值：" & imax & Chr(10) & "最小值：" & imin
End Sub

追问

谢谢高手指导~但我载入实际的Excel之後，发现会show"没有设定物件变数或with区块变数"，请问方便把原始档案寄给您过目吗?

追答

字段不在第一行？修改rows的参数试试。find查找不到对象会返回错误值。数据可以发到我用'户名的企'鹅油'箱

追问

修改rows之後就可以了~再请问一下~如果不想用msgbox show出结果~而是想要打印在储存格，假设想要打印在C1储存格，应该怎麼做呢~?谢谢高手指导~

追答

输出到C1单元格的话直接赋值就可以了
range("c1")=imax

Answer 2

.....................