- 帖子
- 55
- 主題
- 17
- 精華
- 0
- 積分
- 79
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- office2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-7-17
- 最後登錄
- 2020-12-31
|
簡化程式
煩請大大幫忙簡化一下下列程式,不勝感激!!
For i = 6 To 45
If Range("c" & i) = "" Then
Range("e" & i) = ""
End If
If Range("c" & i) = "" Then
Range("f" & i) = ""
End If
If Range("c" & i) = "" Then
Range("g" & i) = ""
End If
If Range("c" & i) = "" Then
Range("h" & i) = ""
End If
If Range("c" & i) = "" Then
Range("i" & i) = ""
End If
If Range("c" & i) = "" Then
Range("j" & i) = ""
End If
If Range("c" & i) = "" Then
Range("k" & i) = ""
End If
If Range("c" & i) = "" Then
Range("l" & i) = ""
End If
If Range("c" & i) = "" Then
Range("m" & i) = ""
End If
If Range("c" & i) = "" Then
Range("n" & i) = ""
End If
Next |
|