¼Æ­È©T©w½d³ò

ws2315

¦pÃD,½Ð¦U°ª¤â«ü¾É,·PÁÂ

ikboy

²q¤@²q

1. Sub zz()
   
2. Dim a
   
3. a = Range("b2:b" & [b1048576].End(3).Row)
   
4. For i = 1 To UBound(a)
   
5.     If a(i, 1) < 200 Or a(i, 1) > 280 Then a(i, 1) = Application.RandBetween(200, 280)
   
6. Next
   
7. [b2].Resize(i - 1) = a
   
8. End Sub

½Æ»s¥N½X

ws2315

¦^´_ 2# ikboy


   ¥i½Ð¤j¤j¤W¶ÇÀÉ®×,¥H¨ç¼Æ«ü¾É,·PÁÂ,

cucu

¦^´_ 1# ws2315


¸Õ¸Õ¬Ý  
C2 =IF(OR(B2>280,B2<200),RANDBETWEEN(200,280),B2)

ws2315

¦^´_ 4# cucu


    ¥i§_±N¨ç¼Æ©ñ¦bB2~B21¼Æ­È¤º,½Ð«ü¾É,·P¿E

cucu

¦^´_  cucu


    ¥i§_±N¨ç¼Æ©ñ¦bB2~B21¼Æ­È¤º,½Ð«ü¾É,·P¿E
ws2315 µoªí©ó 2020-4-1 19:07

    §Ú»{¬°¬O¨S¿ìªk§â¨ç¼Æ©ñ¦bB2~B21¡A¦]¬°B2~B21´N¬O§PÂ_ªº¨Ì¾Ú¡A¨ç¼Æ¼g¤U¥h´N²M±¼­ì¥»ªº¼Æ¾Ú¤F...

­ã´£³¡ªL

¦^´_ 5# ws2315


1) ±N¤½¦¡­È¶K¦^BÄæ§Y¥i
2) ¤£µM¥ÎVBA, ¦ý±o¥ý¦Û¦æ¾Ç·|±Nµ{¦¡½X©ñ¤JVBE½s¿è¾¹ªº¼Ò²Õ¤º, ¨Ã«Ø«ö¶s°õ¦æ

ws2315

¦^´_ 7# ­ã´£³¡ªL


    ·PÁ¦U¦ì¤j¤j

ws2315

¦^´_ 2# ikboy


    ¦p½d³ò¦bB2~B9,¥B¼Æ­È¬Ò¦³¤p¼ÆÂI(200.2).½Ð¤j¤j«ü¾É,ÁÂÁÂ

­ã´£³¡ªL

¦^´_ 9# ws2315


Sub Âà´«()
Dim xR As Range
Randomize
For Each xR In Range([B2], [B65536].End(xlUp))
    If Val(xR) < 200 Or Val(xR) > 280 Then xR = Round(Rnd * 80 + 200, 1)
Next
End Sub

Xl0000067.rar (9.13 KB)

¤U¸ü¦¸¼Æ: 4

2020-4-4 10:02

=========================