close
4196 |
Excel如何將多張工作表內容向上移並不影響總和計算 |
曾雨婷:「錦子老師,請問一下喔,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
文章標籤
全站熱搜
留言列表