返回列表 上一主題 發帖

簡化程式

簡化程式

煩請大大幫忙簡化一下下列程式,不勝感激!!
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
你猜!!

就這麼簡單???感謝大大我腦殘了!!
你猜!!

TOP

回復 1# bear0925900003
  1. Option Explicit
  2. Sub Ex()
  3.     Dim i
  4.     For i = 6 To 45
  5.         If Range("c" & i) = "" Then Range("e" & i & ":n" & i) = ""
  6.     Next
  7. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 盡多少本份,就得多少本事。
返回列表 上一主題