Excel 创建一个宏，允许我删除其他列中的复制；除非；旁边的单元格包含完全相同的数字

我正在尝试创建一个宏，该宏允许我“仅当”旁边的单元格包含完全相同的数字时删除复制

例如：

范围为P15:Q34

        P       Q
Row 15  8.22    8.22

Row 16  16.33   32.22

Row 17  25.66   25.66

.
.
. and so on

---

正如你所看到的，我在第15题和第17题中有重复。我想保留所有信息在P列和任何Q单元格（如Q16），但只删除重复。有人能帮我处理这个宏吗？

我想没有VBA，你想要的东西很容易。在另一个专栏中（我在第15行中建议）：

---

并抄写下来以适应。选择结果并将特殊值粘贴到Q15中。

我认为没有VBA，您想要的很容易。在另一个专栏中（我在第15行中建议）：

---

并抄写下来以适应。选择结果并将特殊值粘贴到Q15中。

我认为没有VBA，您想要的很容易。在另一个专栏中（我在第15行中建议）：

---

并抄写下来以适应。选择结果并将特殊值粘贴到Q15中。

我认为没有VBA，您想要的很容易。在另一个专栏中（我在第15行中建议）：

并抄写下来以适应。选择结果并将特殊值粘贴到Q15中。

希望这有帮助

Sub Test()
    For Each Cell In Sheets("New Summary").Range("P15:Q34")
        If Cell.Value = Cell.Offset(0, 1) Then
            Cell.Offset(0, 1) = ""
        End If
    Next
End Sub

希望这有帮助

Sub Test()
    For Each Cell In Sheets("New Summary").Range("P15:Q34")
        If Cell.Value = Cell.Offset(0, 1) Then
            Cell.Offset(0, 1) = ""
        End If
    Next
End Sub

希望这有帮助

Sub Test()
    For Each Cell In Sheets("New Summary").Range("P15:Q34")
        If Cell.Value = Cell.Offset(0, 1) Then
            Cell.Offset(0, 1) = ""
        End If
    Next
End Sub

希望这有帮助

Sub Test()
    For Each Cell In Sheets("New Summary").Range("P15:Q34")
        If Cell.Value = Cell.Offset(0, 1) Then
            Cell.Offset(0, 1) = ""
        End If
    Next
End Sub

---

---

首先你的代码在哪里。。。例如，到目前为止，您尝试了什么？第二，您希望第15行和第17行被完全删除？您希望Q15被清除，还是希望单元格被删除，并且下面的所有值都向上移动？我还没有代码，因为我真的不知道如何进行此操作。是的，如果有重复，我想删除Q中的任何内容。只是删除信息，而不是整个行或单元格。我见过不少例子，其中有人删除整行，但没有删除当前单元格中的信息。首先。。你的代码在哪里。。。例如，到目前为止，您尝试了什么？第二，您希望第15行和第17行被完全删除？您希望Q15被清除，还是希望单元格被删除，并且下面的所有值都向上移动？我还没有代码，因为我真的不知道如何进行此操作。是的，如果有重复，我想删除Q中的任何内容。只是删除信息，而不是整个行或单元格。我见过不少例子，其中有人删除整行，但没有删除当前单元格中的信息。首先。。你的代码在哪里。。。例如，到目前为止，您尝试了什么？第二，您希望第15行和第17行被完全删除？您希望Q15被清除，还是希望单元格被删除，并且下面的所有值都向上移动？我还没有代码，因为我真的不知道如何进行此操作。是的，如果有重复，我想删除Q中的任何内容。只是删除信息，而不是整个行或单元格。我见过不少例子，其中有人删除整行，但没有删除当前单元格中的信息。首先。。你的代码在哪里。。。例如，到目前为止，您尝试了什么？第二，您希望第15行和第17行被完全删除？您希望Q15被清除，还是希望单元格被删除，并且下面的所有值都向上移动？我还没有代码，因为我真的不知道如何进行此操作。是的，如果有重复，我想删除Q中的任何内容。只是删除信息，而不是整个行或单元格。我见过不少删除整行的例子，但没有删除当前单元格中的信息。我个人更喜欢@pnuts解决方案。谢谢！有一件事…如果我将我的工作表名称更改为“新摘要”，代码中将如何使用它？将索引号替换为工作表名称<代码>工作表（“新摘要”）我个人更喜欢@pnuts解决方案。谢谢！有一件事…如果我将我的工作表名称更改为“新摘要”，代码中将如何使用它？将索引号替换为工作表名称<代码>工作表（“新摘要”）我个人更喜欢@pnuts解决方案。谢谢！有一件事…如果我将我的工作表名称更改为“新摘要”，代码中将如何使用它？将索引号替换为工作表名称<代码>工作表（“新摘要”）我个人更喜欢@pnuts解决方案。谢谢！有一件事…如果我将我的工作表名称更改为“新摘要”，代码中将如何使用它？将索引号替换为工作表名称<代码>工作表（“新摘要”）谢谢！我会的，但我已经在那个单元格中有一个或多个单元格中有一个巨大的IF语句。它更多的是用于最终产品的事后检查和评审。我喜欢@Pankaj-Jaju宏，唯一的问题是…如果我将我的工作表名称更改为“New Summary”，那么在下面的代码中将如何使用它？好的！再次感谢您的帮助谢谢！我会的，但我已经在那个单元格中有一个或多个单元格中有一个巨大的IF语句。它更多的是用于最终产品的事后检查和评审。我喜欢@Pankaj-Jaju宏，唯一的问题是…如果我将我的工作表名称更改为“New Summary”，那么在下面的代码中将如何使用它？好的！再次感谢您的帮助谢谢！我会的，但我已经在那个单元格中有一个或多个单元格中有一个巨大的IF语句。它更多的是用于最终产品的事后检查和评审。我喜欢@Pankaj-Jaju宏，唯一的问题是…如果我将我的工作表名称更改为“New Summary”，那么在下面的代码中将如何使用它？好的！再次感谢您的帮助谢谢！我会的，但我已经在那个单元格中有一个或多个单元格中有一个巨大的IF语句。它更多的是用于最终产品的事后检查和评审。我喜欢@Pankaj-Jaju宏，唯一的问题是…如果我将我的工作表名称更改为“New Summary”，那么在下面的代码中将如何使用它？好的！再次感谢你的帮助