我的行在彼此相邻的不同单元格中包含类似于以下的数据
+--------------+--------------+--------------+---------------+---------------+
| Print1 | Print2 | Print3 | Print4 | Print5 |
+--------------+--------------+--------------+---------------+---------------+
| Pad Print | Pad Print | Screen Print | Digital Print | Digital Print |
+--------------+--------------+--------------+---------------+---------------+
| Screen Print | Screen Print | Screen Print | Pad Print | Digital Print |
+--------------+--------------+--------------+---------------+---------------+
| Screen Print | Screen Print | Pad Print | Pad Print | Pad Print |
+--------------+--------------+--------------+---------------+---------------+
我要删除重复的单元格并使它们看起来如下
+--------------+--------------+---------------+--------+--------+
| Print1 | Print2 | Print3 | Print4 | Print5 |
+--------------+--------------+---------------+--------+--------+
| Pad Print | Screen Print | Digital Print | | |
+--------------+--------------+---------------+--------+--------+
| Screen Print | Pad Print | Digital Print | | |
+--------------+--------------+---------------+--------+--------+
| Screen Print | Pad Print | | | |
+--------------+--------------+---------------+--------+--------+
你们能告诉我如何实现吗？
答案 0 :(得分：2)
复制数据，然后右键单击（在黑色纸上）>“选择性粘贴”>“检查转置”。它将粘贴到空白纸上，但将所有内容旋转90度。然后，您可以选择一列，然后在“数据”标签中使用“删除重复项”。
如果必须多次记录宏，请突出显示该列并删除重复项，然后选择下一个列，然后停止宏记录器。
编辑：这是VBA，用于删除所选单元格的重复项。
Sub RmDuplicates()
With Selection
Application.CutCopyMode = False
.RemoveDuplicates Columns:=1, Header:=xlNo
End With
End Sub
答案 1 :(得分：0)
没有VBA，并且假设 Print1位于A1中。然后说H2来回复制以适合：
=IF(COLUMN()=8,A2,IF(AND(A2<>$H2,COUNTIF(A2:$E2,A2)=1),A2,FALSE))
然后选择H2结束并在左移Shift单元格的情况下选择Delete ... FALSE。可以通过“查找和选择”>“转到特殊...”>“公式”>“逻辑已打勾”（仅）轻松选择这些。
将A1复制到H1，然后将其复制到适合的位置。
但是，基于this的先例，您可能会在此处遇到Q问题。