Excel VBA基于另一个单元格剪切特定范围的单元格

希望那里的VBA专家能帮助我

我需要识别H列中包含重复值的数据行，然后从第一个重复行的单元格N:S中剪切数据，并将其粘贴到第一行末尾的第一个空单元格中

我会试着更好地解释

可以忽略A:G列。H列包含数字的重复项。如果发现重复项，我需要剪切第一个重复项（示例中的第3行，h3）的N3:S3列中的数据，并将其作为新列附加到现有列的末尾

所附图像显示数据的当前状态，第1:3行和第8:9行显示了数据的最终外观

我希望有人能解释这一点，并帮助我

谢谢

通过录制一个大致反映了我希望实现的目标的宏，我成功地运行了以下VBA。主要问题是，在我手动复制了第1:3行的地方，我希望代码能够识别重复项（将它们分组在一起），然后选择相关数据：

' Macro1 Macro

    Sheets("Report").Select
    Columns("H:H").Select
    Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("H1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$S$17").AutoFilter Field:=8, Criteria1:=RGB(255, _
        199, 206), Operator:=xlFilterCellColor
    Rows("1:3").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Sheets("Sheet10").Select
    Range("N3:S3").Select
    Application.CutCopyMode = False
    Selection.Cut Destination:=Range("T2:Y2")
    Range("T2:Y2").Select

    Rows("3:3").Select
    Selection.Delete Shift:=xlUp
End Sub

---

你试过什么？另外，如果发现的重复项存在于您要放置它的列中，或者每次都是如此新鲜，会发生什么情况？您的图像显示仅获取其中一个重复项，第二个，这是如何确定的，您考虑过公式吗？我不完全确定从何处开始是诚实的答案。我肯定不是vba的高手。从目前为止我所了解到的情况来看，对于H列中的任何重复项，N:S单元格中的任何数据都需要添加为新列。至于公式，我也不确定从何处开始。对于这项任务，您将需要VBA，但这不是免费的编码服务，因此我鼓励您发布您尝试过的代码，然后询问具体问题。现在你的问题太宽泛了。