返回列表 上一主題 發帖

[發問] 報表頁尾插行

softsadwind

帖子
129 
主題
3 
精華
0 
積分
178 
點名
0  
作業系統
XP 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2010-12-28 
最後登錄
2018-11-10 
1# 跳轉到 »
發表於 2012-11-15 12:13 | 顯示全部帖子
  1. Sub 插行()
  2. Dim c, r, j As Integer
  3. c = 50

  5. r = Range("A65536").End(xlUp).Row


  8. If r > 50 Then

  10. Range("2:2").Copy
  11. Range(c & ":" & c).Insert (XlInsertShiftDirection.xlShiftDown)
  12. j = WorksheetFunction.RoundDown((r - 50) / 47, 0)
  13. End If
  14. For i = 1 To j
  15. c = c + 47
  16. Range(c & ":" & c).Insert (XlInsertShiftDirection.xlShiftDown)

  18. Next
  19. Application.CutCopyMode = False
複製代碼
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題