直接用 統合 去動作
Private Sub CommandButton4_Click()
For og = 2 To151 '151可新增
Select Case og
Case 2 To 51 '區段
Sheet1.Range("a10:m10").Value = Sheet4.Range("a1:m1").Value
Sheet1.Range("a" & og + 9, "m" & og + 9).Value = Sheet4.Range("a" & og, "m" & og).Value
Case 52 To 101
Sheet2.Range("a10:m10").Value = Sheet4.Range("a1:m1").Value
Sheet2.Range("a" & og - 42, "m" & og - 42).Value = Sheet4.Range("a" & og, "m" & og).Value
Case 102 To 151
Sheet3.Range("a10:m10").Value = Sheet4.Range("a1:m1").Value
Sheet3.Range("a" & og - 92, "m" & og - 92).Value = Sheet4.Range("a" & og, "m" & og).Value
End Select
Next og
發表於 2012-10-4 08:41
| 