excel如何把相同名称的行的所属内容全部合并到同一行

发布网友

我来回答

共3个回答

热心网友

是数字还是文本，同列需要合并不？仅就图上数字情况来说，sumifs即可满足要求，C13=SUMIFS(C1:C6,$B$1:$B$6,$B$13)

热心网友

Sub aa()
Dim rng As Range
Dim str As String

Dim irng As Range
    Set d = CreateObject("scripting.dictionary")
    For i = 2 To Range("b65536").End(3).Row
        d(Cells(i, 1).Value) = "1"
        Next i
   
      k = d.keys
     For i = 0 To d.Count - 1
         m = 2
     Set rng = ActiveSheet.Columns("a").Find(what:=k(i), lookat:=xlWhole)
         If Not rng Is Nothing Then
             str = rng.Address
             Set irng = rng
             End If
        Do
             m = m + 1
          Set rng = ActiveSheet.Columns("a").FindNext(rng)
              If rng.Address <> str Then
              Rows(rng.Row).Select
    Selection.SpecialCells(xlCellTypeConstants, 1).Copy
                  irng.Offset(0, m).Select
                  ActiveSheet.Paste
            End If
        Loop While Not rng Is Nothing And rng.Address <> str
     Next
End Sub

容错率高 放心使用   所有数据都会统计在名称第一次出现的那一行内。

热心网友

编辑完后往后填充单元格公式，复制粘贴成数值