cji3cj6xu6

Sub Macro1()

Dim DQ As Integer
'
For DQ = 1 To 17

If Range("D" & DQ).Value = 846 Then

Range("E" & DQ).Value = Range("c" & DQ - 1).Value
DQ = 17                                             ' ¦pªG¬O¤@¬Ý¨ì´Nµ²§ô¡A§_«h¦¹«ü¥O¥iÃö³¬
Else
End If

Next DQ

End Sub

cji3cj6xu6

§Úªº¸ê®ÆÁÙ­n§ì847,848,849...¤@ª½¨ì1344¡A©Ò¥H³£­n³o¼Ë¶Ü?? ==> ¨C¦¸¥u§ì²Ä¤@µ§¶Ü¡H
    ¥i¥H²²¤¼gªk¶Ü?? ¡×¡×> §Ú¥u·|if then / for °j°é ªº¼gªk¡A¨þ¨þ¡ã

Sub Macro1()

Dim DQ, EndLine, FindValue As Integer
'
EndLine =2000                       '³Ì«á¤@µ§¸ê®Æ
FindValue =846


For DQ = 1 To EndLine

If Range("E" & DQ).Value = FindValue Then
Range("F" & DQ).Value = Range("D" & DQ - 1).Value
FindValue=FindValue+1                                          
Else
End If

Next DQ

End Sub