Dim Rng為範圍,MyRng為範圍
Set myring = Range(" A:A ")'設置A列以查找對象。
對於MyRng中的每個Rng,查找a列中的所有單元格。
如果Rng。值= WorksheetFunction。然後是min(myrn)
T = Rng。Address(False,False)'獲取最小單元格的列和行。
M = Mid(t,2,3)'除以最小單元格的列號得到行號。
行數(米)。選擇最小單元格所在的行。
如果…就會結束
然後
末端接頭