VBA宏复制和粘贴细胞复制细胞

Question

我有一个数据集如下：

在本质上我需要重复行（禁止项目）将被删除，并为项目被移到另一个的第一行和右侧。

例

我曾与VBA和从哪里开始，将不胜感激任何帮助的经验非常少。

Answer 1

这应该是直着跟随，任何问题，只是问

Public Sub MergeProjects() 
Dim lastrow As Long 
Dim lastcol As Long 
Dim i As Long 

    Application.ScreenUpdating = False 

    With ActiveSheet 

     lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row 
     For i = lastrow - 1 To 2 Step -1 

      If .Cells(i + 1, "A").Value = .Cells(i, "A").Value And _ 
       .Cells(i + 1, "B").Value = .Cells(i, "B").Value And _ 
       .Cells(i + 1, "C").Value = .Cells(i, "C").Value And _ 
       .Cells(i + 1, "D").Value = .Cells(i, "D").Value And _ 
       .Cells(i + 1, "E").Value = .Cells(i, "E").Value Then 

       lastcol = .Cells(i, "A").End(xlToRight).Column 
       .Cells(i + 1, "F").Resize(, 100).Copy .Cells(i, lastcol + 1) 
       .Rows(i + 1).Delete 
      End If 
     Next i 

     lastcol = .Range("A1").CurrentRegion.Columns.Count 
     .Range("F1:G1").Value = Array("Project 1", "Project 2") 
     If lastcol > 7 Then 

      .Range("F1:G1").AutoFill .Range("F1").Resize(, lastcol - 5) 
     End If 
    End With 

    Application.ScreenUpdating = True 
End Sub