Hsieh

¦^´_ 1# yiwei0707
    If K = 1 Then

    Else

        For I = 1 To K

            J = Sheets("TEMP").Cells(I, 1)

            Sheets("06").Range(Sheets("06").Cells(J, 5), Sheets("06").Cells(J, 6)) = Sheets("TEMP").Range(Sheets("TEMP").Cells(I, 2), Sheets("TEMP").Cells(I, 3))

        Next

    End If

Hsieh

¦^´_ 3# yiwei0707


    ³o¬O°w¹ïµ{¦¡½X¿ù»~ªº­×¥¿¡A¦Ü©ó¸ê®Æ¨S¿ìªk¼g¤J¡A¥ú¬Ý³¡¥÷µ{¦¡½X¬OµLªkµ¹§A¥ô¦ó«Øijªº

Hsieh

¦^´_ 5# yiwei0707


    ÁÙ¬O¥X¦b«ü©w¤u§@ªíªº°ÝÃD
¤ÀÃþ¾P°â¬d¸ß.rar (256.71 KB)

¤U¸ü¦¸¼Æ: 3

2017-12-10 09:52