我在Excel表格中的结果如下:
Load Id Ship Ref Type
12345 monarch FALSE
FALSE
FALSE
DRY
FALSE
FALSE
23456 MONARCH FALSE
REEFER
FALSE
FALSE
我只需要ID和正确的值(DRY或REEFER),所以它看起来像这样:
Load Id Ship Ref Type
12345 Monarch DRY
23455 MONARCH REEFER
答案 0 :(得分:1)
步骤1:首先填写空白(复制"加载ID","发货参考"到所有列)。 How to fill the Blanks?
第2步:过滤"输入"然后删除所有(删除行)" False"
你完成了!
答案 1 :(得分:1)
您可以使用这段代码来获得所需的结果。请确保在备份数据上进行测试。
Sub delFalse()
For i = Range("C" & Rows.Count).End(xlUp).Row To 1 Step -1
If (Trim(Range("A" & i)) = "") Then
If InStr(1, Range("C" & i).Value, "FAL", vbTextCompare) > 0 Then
Range("C" & i).EntireRow.Delete
End If
Else
Do While (InStr(1, Range("C" & i).Value, "FAL", vbTextCompare) > 0)
Range("C" & i) = Range("C" & i + 1)
Range("C" & i + 1).EntireRow.Delete
Loop
End If
Next i
End Sub
我第一次遇到这个问题Range("C10").Value = "False"
给了我一个FALSE
即使C10
是FALSE
。在excel公式中测试了这个也得到了同样的东西。因此,我在代码中使用了INSTR
。