數值固定範圍 - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » 數值固定範圍

返回列表下一主題上一主題發帖

數值固定範圍

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 16
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-3-28

2016猴年全勤獎章

1^# 跳轉到 »

發表於 2020-3-31 14:36 | 顯示全部帖子

猜一猜

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

複製代碼

靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。

返回列表下一主題上一主題