1
我有一个代码,除了一个缺陷以外,它的工作方式非常好。它检查范围内的文本并返回相邻单元格中的文本。如果相邻范围行(列C到G)为空,我希望它返回空白单元格(列B)。这是下面如果范围为空,则清除单元格内容的VBA
Sub status_summary()
Dim r As Integer
Dim fail As Boolean
Dim mrit As Boolean
Dim pass As Boolean
For r = 2 To 6
If Range("C" & r) = "Failed" Then fail = True
If Range("C" & r) = "Merit" Then mrit = True
If Range("C" & r) = "Pass" Then pass = True
If Range("D" & r) = "Failed" Then fail = True
If Range("D" & r) = "Merit" Then mrit = True
If Range("D" & r) = "Pass" Then pass = True
If Range("E" & r) = "Failed" Then fail = True
If Range("E" & r) = "Merit" Then mrit = True
If Range("E" & r) = "Pass" Then pass = True
If Range("F" & r) = "Failed" Then fail = True
If Range("F" & r) = "Merit" Then mrit = True
If Range("F" & r) = "Pass" Then pass = True
If Range("G" & r) = "Failed" Then fail = True
If Range("G" & r) = "Merit" Then mrit = True
If Range("G" & r) = "Pass" Then pass = True
If pass = True Then Range("B" & r) = "Pass"
If mrit = True Then Range("B" & r) = "Merit"
If fail = True Then Range("B" & r) = "Failed"
fail = False
mrit = False
pass = False
Next r
MsgBox ("All Done")
End Sub
感谢Siddhart使用公式。我应该在我的标准Failed> Merit> Pass中明确说明。所以如果单元格的范围是空的,则在B列中返回空,否则按照标准。 – user2211547 2013-04-28 09:07:24
检查上面更新的帖子。你将不得不刷新页面。 – 2013-04-28 09:13:14
再次感谢。工作正常。 – user2211547 2013-04-28 09:14:07