¦p¦ó¨Ï¥ÎExcel VBA ±NÀx¦s®æ¤ºªº­È»PÃC¦â¦P¨B

jsc0518

°ÝÃD
1.D1~AH2(½d³ò)¡A¨C­Ó¤ë¤é´Á¤Î¬P´Á³£·|¦³ÅÜ°Ê(¤â°Êkey)
2.¦]¨C¤ë¥÷ªº°²¤é©Î°ê©w°²¤é¬O¤£¦Pªº¡A¬G¦b°²¤éªº³¡¤À·|¦A¥t¥~©óÀx¦s®æ¼Ð¤W¯»¬õ¦â°µ¬°°Ï§O
3.¬O§_¥i¥H¨Ï¥ÎVBA¡A±ND1~AH2©Ò¿é¤J«áªº­È¡A¦Û°Ê±a¤JD3~AH4 D17~AH18(¿é¤J¸ê®Æ¤º®e¦P¨B¡A¥H¤ÎÀx¦s®æ¼Ð¥ÜÃC¦â¨B)

¦A½Ð¦U¦ì¥ý¶i«ü¾É§Ú¡A·PÁ¦U¦ì!

¤U¸ü (80.13 KB)

2017-3-22 22:03

Excel_Àx¦s®æÃC¦â¦P¨B.rar (520.46 KB)

¤U¸ü¦¸¼Æ: 5

2017-3-22 22:04

a_nanami

¦^´_ 1# jsc0518


¦n¹³¤£»Ý­n¥Î¨ìVBA¡AªþÀɬݬݬO§_²Å¦X§Aªº»Ý­n   ¤é¾ä.rar (25.99 KB)

¤U¸ü¦¸¼Æ: 6

2017-3-23 20:21

jsc0518

¦^´_ 2# a_nanami

±z¦n¡Aªþ¥óÀɮ׸Ӧp¦ó¨Ï¥Î©O?
ÁÂÁ±zªº¦^ÂÐ!

jsc0518

³o¬O§Ú¥Î¿ý»sªº¤è¦¡¡A¦ýı±oµ{¦¡½X¤Ó¤¹ªø

Sub Macro1()
    Range("D1").Select
    Range("D1:AH2").Select
    Selection.Copy
    Range("D3").Select
    ActiveSheet.Paste
    Range("D17").Select
    ActiveSheet.Paste
    Range("D37").Select
    ActiveSheet.Paste
    Range("D53").Select
    ActiveSheet.Paste
    Range("D67").Select
    ActiveSheet.Paste
    Range("D84").Select
    ActiveSheet.Paste
    Range("D98").Select
    ActiveSheet.Paste
    Range("D115").Select
    ActiveSheet.Paste
    Range("D129").Select
    ActiveSheet.Paste
    Range("D145").Select
    ActiveSheet.Paste
    Range("D159").Select
    ActiveSheet.Paste
    Range("D174").Select
    ActiveSheet.Paste
    Range("D188").Select
    ActiveSheet.Paste
    Range("D204").Select
    ActiveSheet.Paste
    Range("D220").Select
    ActiveSheet.Paste
    Range("D236").Select
    ActiveSheet.Paste
    Range("D251").Select
    ActiveSheet.Paste
    Range("D267").Select
    ActiveSheet.Paste
End Sub

ML089

¦^´_ 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

jsc0518

¦^´_ 5# ML089

¦nªº¡AÁÂÁ§Aªº¦^ÂФαоɡC