- ©«¤l
- 4
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 5
- ÂI¦W
- 0
- §@·~¨t²Î
- win8.1
- ³nÅ骩¥»
- 1.0
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-1-4
- ³Ì«áµn¿ý
- 2020-1-1
 
|
³Ì²³æ¬O¥ýpºâ¦n °Ï¶¡½d³ò µM«áµ{¦¡´N«Ü²³æ¼g¡A
Workbooks("³Ì·s®w¦s.xlsx").Activate
Activesheet.Range("33:33,35:35,....(¨Ì¦¹Ãþ±À¼g§¹)").Select
Selection.Insert Shift:=xlDown
set wb = Workbooks("A®w¦sªí.xlsx").Sheets("½LÂI")
For i = 6 To 26 Step 2
wb.Range(i & ":" & i).Copy Activesheet.Range(28 + i & ":" & 28 + i)
Next |
|