[µo°Ý] Ãö©ó¬Û¹ï¦ì¸mªº½Æ»s¶K¤W°ÝÃD ¶K¤W, ¬Û¹ï¦ì¸m, ½Æ»s

³Q½×¤å¹GºÆªº¤H

§Úªº¸ê®Æªøªº¤j·§¹³³o¼Ë
code             t0        T        cp        K        premªÅ¤@¦æ        code             t0        T        cp        K          prem        ªÅ¤@¦æ¦A±µ§Oªº¸ê®Æ
ln0000001        1        1        1        4        0.865                ln0000002        1        1        1        4.25           0.6575       
ln0000162        1        1        2        4        0.0411                ln0000166        1        1        2        4.25           0.0836       
ln0008058        2        1        1        4        0.9496                ln0008059        2        1        1        4.25           0.7296       
ln0008219        2        1        2        4        0.0277                ln0008223        2        1        2        4.25           0.0577       
ªÅ¨â¦C
code             t0        T        cp        K        prem                code             t0        T        cp        K           prem       
ln0008058        2        1        1        4        0.9496                ln0008059        2        1        1        4.25   0.7296       
ln0008219        2        1        2        4        0.0277                ln0008223        2        1        2        4.25           0.0577       
ln0016117        3        1        1        4        0.7622                ln0016118        3        1        1        4.25           0.5564       
ln0016278        3        1        2        4        0.0373                ln0016282        3        1        2        4.25           0.0815       
.ªÅ¨â¦C¦A±µ§Oªº¸ê®Æ

¤U¸ü (115.92 KB)

2016-5-29 00:10

§Ú§Æ±æ¯à½Æ»s¼Ð¥Ü¶À¦âªº¸ê®Æ(·íµM­ì©l¸ê®Æ¥»¨­¬O¨S¦³¼Ð¥Ü¶À¦âªº)
µM«á¶K¤W¥kÃä¦P¤@¦C¼Ð¥ÜÂŦ⪺³¡¦ì¤W(¨ú¥N­ì¥ýªº­È)
½Ð°Ý¤£ª¾¹D¯à¤£¯à¼g¦¨vba µ{¦¡½X?©Î¨ä¥L§ó§Öªº¤è¦¡?
aa.zip (335.14 KB)

¤U¸ü¦¸¼Æ: 2

2016-5-29 00:13

ML089

Sub ex()
    Dim xR As Range, x%
    For Each xR In Range("A1:A108") '½d³ò¦Û¦æ­×§ï
        If xR = "code" Then
            For x = 8 To Range("AUW1").Column Step 7 '³Ì«á½Æ»s¦ì¸m¦Û¦æ­×§ï
                xR(2, x).Resize(1, 6) = xR(2, 1).Resize(1, 6).Value 'code¦r¤U²Ä2¦C
                xR(5, x).Resize(1, 6) = xR(5, 1).Resize(1, 6).Value 'code¦r¤U²Ä5¦C
            Next
        End If
    Next
End Sub

ML089

'¦Û°Ê°»´úªí®æ½d³ò§@¬°³B²z
'­­¥Î©ó¤pªí®æ½d³ò¬° 7*7
Sub ex()
    Dim xR As Range, x%, y%
    For y = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 7
        If Cells(y, 1) = "code" Then
            Set xR = Cells(y, 1)
            For x = 8 To Cells(1, Columns.Count).End(xlToLeft).Column Step 7
                xR(2, x).Resize(1, 6) = xR(2, 1).Resize(1, 6).Value
                xR(5, x).Resize(1, 6) = xR(5, 1).Resize(1, 6).Value
            Next
        End If
    Next
End Sub

³Q½×¤å¹GºÆªº¤H

¦^´_ 3# ML089

ÁÂÁÂ!!
³o¯uªºÅý§Úªº¸ê®Æ¾ã²z§ó¦³®Ä²v¤F!!