Excel VBA如果那麼陳述

Question

我想如果我的細胞（b5，c5）比細胞（f5，g5，h5）空白也是空白的，細胞（b6，c6）比細胞（f6，g6， h6），細胞（b7，c7）比細胞（f7，g7，h7）空白，細胞（b8，c8）比細胞（f8，g8，h8）空白，細胞（b9，c9） F9，G9，H9），但同樣我想這個代碼200時間幫我做一個小code.thanks提前。

Sub BLANK() 

    If Range("B5,C5") = "" Then 
    Range("F5,G5,H5") = "" 
    If Range("B6,C6") = "" Then 
    Range("F6,G6,H6") = "" 
    If Range("B7,C7") = "" Then 
    Range("F7,G7,H7") = "" 
    ' same code in cell("b5:b200") make small code please 
    end if 
    end sub 

Answer 1

下面將循環200次以上，並生產出您需要

For x = 5 to 200 
    If Range(Cells(x,2), Cells(x,3)).Value = "" Then 
     Range(Cells(x,6), Cells(x,8)).Value = "" 
    End if 
Next x 

Answer 2

的結果，我會建議更換你使用這樣的事情。凡範圍和紙張正確聲明，以及所有變量都正確使用option explicit，以防止您從多個問題

Sub makeBlank() 

Dim mySheet As Worksheet 
Set mySheet = Sheets("devSheet") 

Dim rowCounter As Long 

With mySheet 
    For rowCounter = 5 To 200 
     If .Range("B" & rowCounter & ",C" & rowCounter).Value = "" Then 
      .Range("F" & rowCounter & ",G" & rowCounter & ",H" & rowCounter).Value = "" 
     End If 
    Next rowCounter 
End With 

End Sub