合并单元格，内容也合并

fhv123

单元格合并后内容保存，然后都改成一行，数据量很大，一个个操作太麻烦，哪位大神帮忙看看

避风港湾

WPS有这功能

fhv123

避风港湾 发表于 2022-11-25 15:42
WPS有这功能

我想找一种批量做的方式，实际的表格有几千行，谢谢

680926

Dim arr
arr = [a1:a18]
For i = 2 To UBound(arr)
Set Rng = Range("a" & i).MergeArea
m = i
n = Rng.Rows.Count
  Cells(23 + k, 1) = Cells(i, 1)
  Cells(23 + k, 2) = Cells(i, 2)
  Cells(23 + k, 4) = Cells(i, 4)
  Cells(23 + k, 5) = Cells(i, 5)
   Cells(23 + k, 6) = Cells(i, 6)
  For x = m To n + m - 1
  str1 = str1 & Cells(x, 3).Value & ","
  Next
  Cells(23 + k, 3) = Left(str1, Len(str1) - 1)
  str1 = ""
i = i + n - 1
k = k + 1


Next
End Sub

680926

我这有点粗糙，但可以对付用