¦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

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

jsc0518

¦^´_ 5# ML089

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