求助，如附件

cwcpr

求快速将表格的分配序号和姓名栏的内容合并到摘要栏中，急的！求大家帮帮忙！！！

liangmutou01

见代码：
Sub tk()
  For h = 3 To Cells(Rows.Count, 4).End(xlUp).Row
    hbh = Cells(h, 2).MergeArea.Rows.Count
    If hbh > 1 Then
      For gdh = 0 To hbh - 1
        zf = zf & Cells(h + gdh, "d")
      Next gdh
      zf = Cells(h, "c") & zf
      Cells(h, "v") = zf
      zf = ""
      h = h + hbh - 1
    End If
  Next h
End Sub