[說明]
減少不必要的程式碼執行次數，資料列有資料才執行，可提升巨集執行的效率。
 
[程式碼]
Sub JS() 'FOR的尾數等於最後一列的列數
 
  工作表1.Select '依判斷列數的資料放置工作表不同而有異，請自行調整。
  INLASTROW = Range("a1").End(xlDown).Row 'INLASTROW只是一個代碼，可自由命名。
  For I = 2 To INLASTROW
    '輸入你想執行的程式碼
  Next I
 
End Sub
 
[特別說明]

若工作表的第一列與第二列的儲存格有合併時，就須將「Range("A1")」 這一段程式碼，改成「Range("A2")」，不然「INLASTROW」的值只會是3喔。

 

20180128 黑.png


arrow
arrow
    文章標籤
    VBA 常用程式碼 FOR迴圈 FOR的尾數 判斷列數 EXCEL
    全站熱搜
    創作者介紹
    創作者 黑天使 的頭像
    黑天使

    問問蓮蓬頭

    黑天使 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄