- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 62
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-3-13
               
|
回復 7# kilon - Sub nn()
- Dim A As Range, B As Range, r%, Sh As Worksheet
- With Sheet1
- Set A = .[A1] 'A1為起點
- Do Until A.Address = first '直到再度找到的位置是A1
- Set B = .Columns("G").Find("*** 報 表 結 束 ***", after:=A.Offset(, 6)) 'G欄中找到報表結束
- r = B.Row - A.Row
- Set Sh = Worksheets.Add(after:=Sheets(Sheets.Count))
- Sh.Name = Replace(A.Offset(3, 3).Text, "/", "")
- A.Resize(r + 1, 13).Copy Sh.[A1]
- Do Until A.Row > B.Row Or A.Address = first '避免一個報表結束內有1個以上科目
- Set A = .Columns("A").Find(A, after:=A) '找下一個起點
- Loop
- first = "$A$1"
- Loop
- End With
- End Sub
複製代碼 |
|