n7822123

¦^´_ 1# s13030029

³o¬qµ{¦¡!? §PÂ_­«½Æ....¥B¶]¤F100¦h¸U¦C...........

    For I = 47 To Range("A47").End(xlDown).Row
        If Cells(I, "B") <> "" Then
            If Cells(I, "B") <> "" Then
                Cells(I, "F").Value = "D," & Cells(I, "A").Value + 1 & ",1"
                Cells(I, "G").Value = "D," & Cells(I, "A").Value + 1 & ",2"
                Cells(I, "H").Value = "D," & Cells(I, "A").Value + 1 & ",3"
                Cells(I, "I").Value = "D," & Cells(I, "A").Value + 1 & ",4"
                Cells(I, "J").Value = "D," & Cells(I, "A").Value + 1 & ",5"
            Else
            End If
        End If
    Next

®É¶¡¥D­n¥d¦b§Aµ{¦¡½X27~38¦Cªº³¡¤À¡A

¦]¬°§Aµ¹ªºÀÉ®×±qA47¥H«á³£¨S¸ê®Æ¡A©Ò¥H¤£ª¾¹D³o¬qµ{¦¡¨ì©³­n·F¹À!

°j°é·|­«47¦C¶]¨ì1048576........¥BÀx¦s®æ³£¬OªÅ¥Õ¡Aµ¥©ó¥Õ¶]¤F100¦h¸U¦C!

¦pªG§A§â³o¬qµù¸Ñ±¼¡A·|µo²{³t«×°¨¤W´£ª@¡C

n7822123

¦^´_ 4# s13030029


®¦®¦¡AÀ³¸Ó¨C±iªí®æ³£µ¹¥L¤@­Ó½d³ò¥h¶]´N¦n¤F

Á|¨Ò¨Ó»¡§A²Ä2±iªí®æ·|±qA47 ¨ìA67¡A´N§â§AªºI©T©w±q 47¨ì67´N¥i¥H¤F

¦pªG·|¦³²Ä3±iªí®æ»P²Ä4±iªí®æ¤]Ãþ¦ü³B²z¡A¤£¤Ó¥i¯à¶]¨ì1048576¦Cªº....

n7822123

¦^´_ 5# n7822123


¥i®Ú¾Ú¤@¨Çªí®æ©T©w·|¥X²{¦r²´¡A¥ý§PÂ_·|¦³´X­Óªí®æ¡A¦A³]¥ß½d³ò

Á|¨Ò :
¨C±iªí®æ©T©w¶]20¦C(²Ä¤@±i±q12¶]¨ì31)¡A¦³30±iªí®æ(ÅܼÆT)¡A
°²³]¨C±iªí®æªºÀx¦s®æ¦ì¸m¬Û®t37¦C¡A¥i¥H§ï¦¨¦p¤U

For T=1 to 30  '°²³]¦³30±iªí®æ
    For I = T*37-25 To T*37-6  '²Ä¤@¦C»P³Ì«á¤@¦C¨Ì¾Ú²ÄT±iªí®æ°µÅÜ°Ê
            If Cells(I, "B") <> "" Then
                Cells(I, "F").Value = "D," & Cells(I, "A").Value + 1 & ",1"
                Cells(I, "G").Value = "D," & Cells(I, "A").Value + 1 & ",2"
                Cells(I, "H").Value = "D," & Cells(I, "A").Value + 1 & ",3"
                Cells(I, "I").Value = "D," & Cells(I, "A").Value + 1 & ",4"
                Cells(I, "J").Value = "D," & Cells(I, "A").Value + 1 & ",5"
            Else
            End If
    Next I
Next T

·íµM³oÁÙ¬O¥i¥HÀu¤Æªº¡A¥Î°}¦C³B²z¥i¥H§ó§Ö¡C

n7822123

¦^´_ 6# n7822123


End(xlDown) ¥i¾A¥Î©ó ½T©w¦³¸ê®Æ ªº±¡ªp¤U¡AµL¸ê®Æ·|¶]¨ì³Ì¥½¦C

¨Ï¥Î«e­n¥ý§PÂ_¬O§_¦³¸ê®Æ