- 帖子
- 4
- 主題
- 1
- 精華
- 0
- 積分
- 5
- 點名
- 0
- 作業系統
- win8.1
- 軟體版本
- 1.0
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2014-1-4
- 最後登錄
- 2020-1-1
 
|
最簡單是先計算好 區間範圍 然後程式就很簡單寫，
Workbooks("最新庫存.xlsx").Activate
Activesheet.Range("33:33,35:35,....(依此類推寫完)").Select
Selection.Insert Shift:=xlDown
set wb = Workbooks("A庫存表.xlsx").Sheets("盤點")
For i = 6 To 26 Step 2
wb.Range(i & ":" & i).Copy Activesheet.Range(28 + i & ":" & 28 + i)
Next |
|
發表於 2019-12-18 11:19
| 