به چندین روش این کار امکانپذیر هست مثل استفاده از حلقه if تو در تو که خوانایی برنامه رو کم می کنه و یا اینکه ماکرو بنویسی مثل این:
یه button به شیت اضافه می کنی و با دبل کلیک روی اون واحد محیط کد نوسی می شی. این کدها رو کپی و پیست کن جواب میده. قبل از اون تب Developer رو باید از قبل اضافه کن اگه نیست.
یه نکته این کدها برای سطر یک تا 10 است که میتونی خودت دستی بکنیش مثلا 200
Dim c As Range
For Each c In Range("a1:a10")
x = c.Value
i = c.Row
Select Case x
Case 0 To 19
Cells(i, 2) = "2000"
Case 20 To 49
Cells(i, 2) = "10000"
Case 50 To 99
Cells(i, 2) = "25000"
Case 100 To 299
Cells(i, 2) = "70000"
Case 300 To 499
Cells(i, 2) = "167000"
Case Else
Cells(i, 2) = ((x - 500) * 167) + 1670000
End Select
Next
Dim c As Range
For Each c In Range("a1:a10")
x = c.Value
i = c.Row
Select Case x
Case 0 To 19
Cells(i, 2) = "2000"
Case 20 To 49
Cells(i, 2) = "10000"
Case 50 To 99
Cells(i, 2) = "25000"
Case 100 To 299
Cells(i, 2) = "70000"
Case 300 To 499
Cells(i, 2) = "167000"
Case Else
Cells(i, 2) = ((x - 500) * 167) + 1670000
End Select
Next