彰化一整天的論壇

 找回密碼
 立即註冊
查看: 696|回復: 1

如何複製工作表的群組

[複製鏈接]
發表於 2015-11-25 13:25:28 | 顯示全部樓層 |閱讀模式
  1. Option Explicit
  2. Public Sub CopyOutline()
  3.       Dim i As Long
  4.       Dim lastRow As Long
  5.       Dim source As Worksheet
  6.       Dim target As Worksheet
  7.       
  8.       Set source = ActiveWorkbook.Sheets(1)
  9.       Set target = ActiveWorkbook.Sheets(2)
  10.       lastRow = source.UsedRange.Row + source.UsedRange.Rows.Count - 1
  11.       For i = source.UsedRange.Row To lastRow
  12.             target.Rows(i).OutlineLevel = source.Rows(i).OutlineLevel
  13.       Next i
  14. End Sub
複製代碼
資料來源: http://database.ittoolbox.com/gr ... -excel-2010-5244392
回復

使用道具 舉報

發表於 2015-11-25 21:36:34 | 顯示全部樓層
謝謝discuz 提供,好好學一下
回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2019-10-15 15:23 , Processed in 0.136527 second(s), 18 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表