- 帖子
- 8
- 主題
- 2
- 精華
- 0
- 積分
- 10
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2003
- 閱讀權限
- 10
- 註冊時間
- 2011-3-5
- 最後登錄
- 2012-9-3
|
回復 8# Hsieh
謝謝!!成功了!!
可以麻煩大大看看我對這個程式碼的的邏輯理解是否正確
Sub SplitSheet()
Dim A As Range, B As Range, r%, Sh As Worksheet 不懂這裡設定r%是什麼意思
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
這邊我有點不太理解
只知道找到報表結束，但after:=A.Offset(, 6) 這個寫法我不曉得什麼意思，這樣抓到的範圍是什麼？
另外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]
請問這邊的Resize是什麼功能？
Set A = .Columns("A").Find(A, after:=A) '找下一個起點
這個應該跟第一個問題after:=A.Offset(, 6)有關係吧...
Loop
End With
End Sub
感謝大大 |
|
發表於 2012-8-28 11:46
| 
