close

4196

Excel如何將多張工作表內容向上移並不影響總和計算

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

image

問題如下:

針對每張工作表資料從第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

image


arrow
arrow
    文章標籤
    VBA
    全站熱搜
    創作者介紹

    錦子老師 發表在 痞客邦 留言(0) 人氣()