½Ð°Ý¤j¤j¥X²{­«½Æªº­È­n«ç»ò§ì¬Û¹ïÀ³ªº­È

ÂŤÑÄR¦À

A                B              C                            D            E
84558        7956        1        7951.886961        845
84558        7957        1        7951.889495        845
84558        7956        1        7951.89153          845
84558        7956        1        7951.893564        845
84558        7957        3        7951.901137        845
84558        7956        1        7951.903162        845
84559        7957        1        7951.905679        845
84559        7957        1        7951.908193        845
84559        7957        9        7951.930713        845
84559        7957        1        7951.933202        845
84600        7957        3        7951.940657        846
84600        7957        1        7951.943137        846
84600        7957        1        7951.945615        846
84600        7957        5        7951.957967        846
84601        7957        4        7951.967805        846
84601        7957        1        7951.970258        846
84601        7957        2        7951.975158        846
84601        7958        2        7951.981022        846

½Ð°Ý¤j¤j¡A§Ú­n«ç»ò¼gVBA·íEÄæ¥X²{846®É§ì¤W¤@­Ó845©Ò¹ïÀ³¥ªÃ䪺­È(7951.933202)

sunnyso

­«½Æªº¼Æ­È³£¬O³sÄòªº¶Ü¡H

oobird

¸Õ¸Õ¡Ga = [e:e].Find(846, [e65536], , 1)(0, 0)

ÂŤÑÄR¦À

¦^´_ 3# oobird


    ¤j¤j¡A©êºp¤p§ÌÁÙ¬O·s¤â¡A¥i¥H»¡©ú¤@¤U¶Ü??
    ¦bVBA¤W­n¦p¦ó§e²{

ÂŤÑÄR¦À

¦^´_ 2# sunnyso


    ¹ï¡A³£¬O³sÄòªº¡AEÄ檺­È¬O§ìAÄæ­Èªº¤p®É©M¤À

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

ÂŤÑÄR¦À

¦^´_ 6# cji3cj6xu6


    ¤j¤j¡A§Úªº¸ê®ÆÁÙ­n§ì847,848,849...¤@ª½¨ì1344¡A©Ò¥H³£­n³o¼Ë¶Ü??
    ¥i¥H²²¤¼gªk¶Ü??

ÂŤÑÄR¦À

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2013-7-8 21:27 ½s¿è

A                B              C                            D            E           F
84558        7956        1        7951.886961        845
84558        7957        1        7951.889495        845
84558        7956        1        7951.89153          845
84558        7956        1        7951.893564        845
84558        7957        3        7951.901137        845
84558        7956        1        7951.903162        845
84559        7957        1        7951.905679        845
84559        7957        1        7951.908193        845
84559        7957        9        7951.930713        845
84559        7957        1        7951.933202        845
84600        7957        3        7951.940657        846
84600        7957        1        7951.943137        846
84600        7957        1        7951.945615        846
84600        7957        5        7951.957967        846
84601        7957        4        7951.967805        846
84601        7957        1        7951.970258        846
84601        7957        2        7951.975158        846
84601        7958        2        7951.981022        846

½Ð°Ýª©¤W¤j¤j¡A§Ú­n¼g¤@­ÓVBAªºÅÞ¿è¬O·j´MEÄ檺¤º®e(¦]¬°EÄæ¬O¤½¦¡)¡A·íEÄæ¥X²{846®É¦bF2Åã¥Ü845©Ò¹ïÀ³¥ªÃ䪺­È(7951.933202)¡A³o­ÓVBA­n«ç»ò¼g

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

sunnyso

¦^´_ 5# ÂŤÑÄR¦À

®Ú¾Ú§Aªº±ø¥ó¡]³sÄò®É¶¡¡^¤£¥ÎVBA´N¥i¥H°µ¨ì¡A¨£ªþ¥ó¡C§A¤@©w­n¥ÎVBA¶Ü¡H
sonny.rar (7.77 KB)

¤U¸ü¦¸¼Æ: 8

2013-7-9 21:06

¤U¸ü (266.7 KB)

2013-7-9 21:14