給你舉一個程式碼段的例子，如果你會BASIC，在此基礎由解決你的問題就不難了

Dim i, num1

num1 = Sheets("計算").Cells(65536, 1).End(xlUp).Row

"計算 Sheets("計算") A列最後一行資料的位置

For i = 1 To num1

If Sheets("計算").Cells(i, 1)>100 Then Sheets("公佈表").Cells(i, 1) = Sheets("計算").Cells(i, 1)

Next i

"當 Sheets("計算")第1列的資料大於100時，自動拷入 Sheets("公佈表") 的相應列中

Dim i, num1,k

num1 = Sheets("計算").Cells(65536, 1).End(xlUp).Row

"計算 Sheets("計算") A列最後一行資料的位置

k=1

For i = 1 To num1

If Sheets("計算").Cells(i, 1)>100 Then

Sheets("公佈表").Cells(k, 1) = Sheets("計算").Cells(i, 1)

k=k+1

else

k=k

endif

Next i