Question

EXCEL函数 如何删除某一列中不含某一元素的行

如sheet1中 A1单元格为q，
怎么删除sheet2中A1单元格中不是q的行。
不要筛选
我需要公司 数据较多

Answer 1

VBA数组方法完美解决，一次过快速删除符合条件的行。

把要整理的数据复制到sheet2表，对应q值填在sheet1的A1单元格。鼠标左键点击sheet2表里的“删除行”按钮（G1位置）即可。

如要改进请追问。

Answer 2

1、函数不能进行删除之类的操作；

2、可以用VBA完成：如删除A列中不含“中国”的行

Sub test()
i = Cells(Rows.Count, 1).End(3).Row
For i = Cells(Rows.Count, 1).End(3).Row To 1 Step -1
    a = InStr(Cells(i, 1), "中国")
    If InStr(Cells(i, 1), "中国") = 0 Then
        Range("A" & i).EntireRow.Delete
    End If
Next
End Sub

Answer 3

最简单的方法，用WPS 打开SHEET2 点中第一行，筛选，然后在A列筛选下拉箭头点下，把q前面的钩去掉，这时候就把所有不是q的行选出来了，把这些行删了，再取消筛选就行了，如果你真不喜欢 ，下面的VBA可以用上：
sub test()
sheet2.activate
for i=2 to sheet2.usedrange.rows.count
if cells(i,1).value<>shee1!a1 then
cells(i,1).entirerow.delete
end if
next i
end sub

Answer 4

1、用手工的方法，选定不含某一元素的整行，按右键，选择删除
2、用vba自动、批量删除不含某一元素的行

Answer 5

在表格开头设置筛选就可以了，把不需要的删除