- 帖子
- 28
- 主題
- 4
- 精華
- 0
- 積分
- 54
- 點名
- 0
- 作業系統
- windows xp pro
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台南市
- 註冊時間
- 2010-5-5
- 最後登錄
- 2016-6-8
|
用 select case 以下為範例程式碼
Sub g1()
Dim i As Integer
Dim c As Integer
i = Worksheets("sheet1").Cells(65536, 1).End(xlUp).Row
For x = 1 To i
c = Cells(x, 1)
Select Case c
Case Is < 11
Cells(x, 2) = "A"
Case Is < 21
Cells(x, 2) = "B"
Case Is < 31
Cells(x, 2) = "C"
Case Is < 41
Cells(x, 2) = "D"
End Select
Next x
End Sub |
|
發表於 2011-6-3 22:32
| 