dim 原始資料表,輸出資料表 as recordset dim 區間最大值,區間最小值,上一筆人名 as string set 原始資料表=currentdb.openrecordset("來源資料表",dbopensnapshot) set 輸出資料表=currentdb.openrecordset("目的資料表",dbopendynaset) 原始資料表.movefirst 上一筆人名=原始資料表.c 區間最大值=原始資料表.b 區間最小值=原始資料表.b do untile 原始資料表.eof on error resume next 原始資料表.movenext if 原始資料表.c<>上一筆人名 then 輸出資料表.addnew 輸出資料表.c=上一筆人名 輸出資料表.b=區間最小值 & "~" & "區間最大值 輸出資料表.update 上一筆人名=原始資料表.c 區間最大值=原始資料表.b 區間最小值=原始資料表.b end if 上一筆人名=原始資料表.c if 區間最大值<原始資料表.b then 區間最大值=原始資料表.b if 區間最小值>原始資料表.b then 區間最小值=原始資料表.b loop msgbox "整理好了^_^"