老师您好,怎么在一个EXCEL表格里,筛选出单元格内容唯一的单元格,是整个表格里的筛选,不是在一列中的
用VBA可以实现。下面这个例子是数据源在表1中,结果显示在表2的A列内。
1、ALT+F11,打开VB编辑器。
2、【插入】-【模块】。在弹出的代码编辑框内输入下面的代码后,按F5,点运行即可。
Sub 筛选()
Sheets("sheet2").Range("a:a").Clear
Dim x, y, z, i As Integer
For x = 1 To 50
For y = 1 To 13
i = i + 1
z = WorksheetFunction.CountIf(Range("a1:m12"), Range(Cells(x, y)))
If z = 1 Then Sheets("sheet2").Range("a" & i) = Range(Cells(x, y)).Value
Next
Next
Sheets("sheet2").Select
Dim r As Integer
xr = Cells(65535, 1).End(xlUp).Row
For r = xr To 1 Step -1
If Cells(r, 1) = "" Then Rows(r).Delete Shift:=xlUp
Next
Range("a1").Select
End Sub
3、代码根据需要修改,目前假设最多50行,13列,根据实际修改这2个数。
4、还可以在点击【工具】-【宏】,选中这个宏名称,点【选项】,设置运行这个宏的快捷键。
循环所有单元格并比较,没有重复的就写到另一个地方。