VBA，求大神解决一下EXCEL的问题

试试：

 Sub myJoin()
  Dim arr()
  With ActiveSheet
       rowEnd = .Range("b65536").End(xlUp).Row
       .Range("C1").Resize(rowEnd).ClearContents
       For i = rowEnd To 1 Step -1
           If .Cells(i, 1) <> "" Then
              x = .Cells(i, 1).Row
              k = rowEnd - x + 1
              If k > 1 Then
                 ReDim arr(1 To k)
                 arr = Range(.Cells(x, 2), .Cells(rowEnd, 2))
                 .Cells(x, 3) = Join(Application.Transpose(arr), "、")
               Else
                 .Cells(x, 3) = .Cells(x, 2)
              End If
              rowEnd = x - 1
           End If
       Next
  End With
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vjfjry3v3ry7jy7jy77.html