- 帖子
- 262
- 主題
- 8
- 精華
- 0
- 積分
- 280
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2015-8-11
- 最後登錄
- 2025-3-24

|
4#
發表於 2015-8-24 08:49
| 只看該作者
回復 3# lcctno
Sub ZZ()
Dim ar, br, MyRng
Myrng = sheets("Data" ).[L4] & “:” & sheets("Data" ).[M4] Rem[起始列數]="Data"之L4 [結束列數]="Data"之M4
ar = Array("析1", "析2", "析3", "析4", "析5", "析6", "析7", "析8", "析9", "析10")
For i = 0 To UBound(ar)
Select Case i
Case 0 To UBound(ar) - 1
With Sheets(ar(i))
.Rows(2).Copy .Rows(myrng)
br = .Rows(myrng)
.Rows(myrng) = br
End With
Case UBound(ar)
With Sheets(ar(i))
.Rows(2).Copy .Rows("201:301") Rem 此處如此類推
br = .Rows("201:301")
.Rows("201:301") = br
End With
End Select
Next
End Sub |
|