錦子老師

曾雨婷：「錦子老師，請問一下喔，Excel活頁簿中包含多個工作表(工作表2、工作表3、工作表4、工作表5)，並且四張工作表都有超過50筆以上的資料，並且每個工作表內的資料筆數都不一樣。

問題如下：

針對每張工作表資料從第2列開始，當資料筆數超過30列時，就刪除前面的30筆舊資料，但F欄(總計)是不刪除的，並且第31筆以後的記錄向上移動，要怎麼窗VBA程序呢？謝謝。」

錦子老師：

步驟1：按ALT+F11鍵，開啟VBA視窗。

步驟2：點取「插入 > 模組」指令，新增一張空白模組工作表。

步驟3：輸入下列程序：

Sub TEST4196()

    For I = 1 To Worksheets.Count   '設定I值是1到目前活頁簿中工作表數目

    Set S = Sheets(I) '指定工作表   '設定S值來指定要處理第幾張工作表

    If S.Range("A1").End(xlDown).Row > 31 Then   '判斷工作表範圍是否大於31列

       S.Range("A2:D1000").Value = S.Range("A32:D1000").Value '如果大於31列則將32列以後資料向上搬移。

    End If                           '結束判斷式

    Next I                           'I值增1

End Sub