返回列表 上一主題 發帖

[發問] 如何將標題每頁頁首顯示並顯示頁碼(非在預覽模式及版面上做設定)

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
1# 跳轉到 »
發表於 2010-11-29 20:32 | 顯示全部帖子
插入一個新工作表(Sheet2)
以下代碼放在Sheet1模組執行。
  1. Sub yy()
  2. With Sheet2
  3. [a1:d50].Copy .[a1]
  4. For i = 1 To 4
  5. .Columns(i).ColumnWidth = Columns(i).ColumnWidth
  6. Next
  7. For i = 51 To [a65536].End(3).Row Step 46
  8. [a2:d4].Copy .Cells(65536, 1).End(3).Offset(1, 0)
  9. Cells(i, 1).Resize(46, 4).Copy .Cells(65536, 1).End(3).Offset(1, 0)
  10. Next
  11. End With
  12. End Sub
複製代碼

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題