假設有10列，行數不超過100行的資料。從第三行開始是你的資料，最後在第一行寫最大值，第二行寫最小值。

dim maxmin(10,2) as single

dim i as integer

dim j as integer

range("A2").select

for i=1 to 10

for j =1 to 2

maxmin(i,j)=0

next j,i

for i=1 to 100

if activecell.offset(i,0)="" then "第一列出現空行即結束

goto wri

endif

for j=1 to 10

if maxmin(j,1)=0 then

maxmin(j,1)=activecell.offset(i,j-1)

elseif maxmin(j,1)