[發問]儲存格設定範圍分割成不同工作表 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » [發問]儲存格設定範圍分割成不同工作表

返回列表下一主題上一主題發帖

[發問]儲存格設定範圍分割成不同工作表

小學生 Rank: 1

帖子: 23
主題: 0
精華: 0
積分: 31
點名: 0
作業系統: Win7
軟體版本: 20xx
閱讀權限: 10
性別: 男
註冊時間: 2012-8-11
最後登錄: 2012-8-28

1^# 跳轉到 »

發表於 2012-8-28 14:49 | 顯示全部帖子

回復 1# kilon

Sub SplitSheet()
Dim A As Range, B As Range, r%, Sh As Worksheet
Set A = [A1] 'A1為起點
Do Until A.Address = first '直到再度找到的位置是A1
first = "$A$1"
Set B = Columns("G").Find("報表結束", after:=A.Offset(, 6)) 'G欄中找到報表結束
r = B.Row - A.Row
ad = A.Resize(r + 1, 13).Address
Set Sh = Worksheets.Add(after:=Sheets(Sheets.Count))
Sh.Name = Replace(A.Offset(3, 3).Text, "/", "")
A.Resize(r + 1, 13).Copy Sh.[A1]
Set A = Columns("A").Find(A, after:=A) '找下一個起點
Loop
End Sub

複製代碼

小學生 Rank: 1

帖子: 23
主題: 0
精華: 0
積分: 31
點名: 0
作業系統: Win7
軟體版本: 20xx
閱讀權限: 10
性別: 男
註冊時間: 2012-8-11
最後登錄: 2012-8-28

2^#

發表於 2012-8-29 23:54 | 顯示全部帖子

回復 3# GBKEE

多謝版主提醒

Sub SplitSheet()
Dim A As Range, B As Range, r%, Sh As Worksheet
With Sheet1
Set A = .[A1] 'A1為起點
Do Until A.Address = first '直到再度找到的位置是A1
first = "$A$1"
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]
Set A = .Columns("A").Find(A, after:=A) '找下一個起點
Loop
End With
End Sub

複製代碼

靜思自在 : 慈悲沒有敵人，智慧不起煩惱。

返回列表下一主題上一主題