¦p¦ó¨Ï¥ÎExcel VBA ±NÀx¦s®æ¤ºªºÈ»PÃC¦â¦P¨B
- ©«¤l
- 2025
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 2053
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- Office2007
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_¥«
- µù¥U®É¶¡
- 2011-3-2
- ³Ì«áµn¿ý
- 2024-3-14
|
¦^´_ 4# jsc0518
¨S¦³³W«ß®É¥Î For Each y In Array( ... )
Sub Macro2()
Range("D1:AH2").Select
Selection.Copy
For Each y In Array(3, 17, 37, 53, 67, 84, 98, 115, 129, 145, 159, 174, 188, 204, 220, 236, 251, 267)
Range("D" & y).Select
ActiveSheet.Paste
Next
End Sub
Sub Macro3()
For Each y In Array(3, 17, 37, 53, 67, 84, 98, 115, 129, 145, 159, 174, 188, 204, 220, 236, 251, 267)
Range("D1:AH2").Copy Range("D" & y)
Next
End Sub |
|
{...} ªí¥Ü»Ýn¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡
|
|
|
|
|