连续查找相似的单元格并替换为旁边的单元格

Question

我的行在彼此相邻的不同单元格中包含类似于以下的数据

+--------------+--------------+--------------+---------------+---------------+ | 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 | | | | +--------------+--------------+---------------+--------+--------+

你们能告诉我如何实现吗？

Answer 1

复制数据，然后右键单击（在黑色纸上）>“选择性粘贴”>“检查转置”。它将粘贴到空白纸上，但将所有内容旋转90度。然后，您可以选择一列，然后在“数据”标签中使用“删除重复项”。

如果必须多次记录宏，请突出显示该列并删除重复项，然后选择下一个列，然后停止宏记录器。

编辑：这是VBA，用于删除所选单元格的重复项。

Sub RmDuplicates()
    With Selection
        Application.CutCopyMode = False
        .RemoveDuplicates Columns:=1, Header:=xlNo
    End With
End Sub

Answer 2

没有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问题。