:'(
For K=1 to 250
Worksheets("檔名資料").Cells(K, 3).Value = Cells(K, 1)
Worksheets("檔名資料").Cells(K, 4).Value = Cells(K, 5)
Worksheets("檔名資料").Cells(K, 5).Value = Cells(K, 10)
Next K
我使用EXCEL的VBA寫了一小段工具協助我搬工作表內的資料,大致如上
可是過程中一直出現下面的畫面,
使得必須按下〝 確定〝,才能繼續執行…
請教各位大大如何避免它一直出現還能繼續執行呢? 謝謝~~~感恩~~~~~
|