如何把C列日期并合到D列内容前

推荐回答

Sub 合并()

        Dim arr 

       On Error Resume Next          

      arr = Range("a1:c" & Range("a" & Rows.Count).End(xlUp).Row + 1)  

      For a = 2 To Range("a" & Rows.Count).End(xlUp).Row

               If arr(a, 2) <> "" Then

                    c = a + 1 

                   b = arr(c - 1, 3) 

                   Do                    

                            If arr(c, 2) <> "" Or c > Range("a" & Rows.Count).End(xlUp).Row Then Exit Do                        c = c + 1 

                       b = b & "," & arr(c - 1, 3)

                    Loop 

                   Cells(a, 4) = b

               End If            

         Next    

    End Sub试一试看，能不能符合你的要求。