求excel单元格内容合并处理的vba代码

发布网友发布时间：2022-05-08 21:16

共4个回答

热心网友时间：2024-01-03 18:48

假设在sheet2 的 A列显示

Sub xxx()
Sheets("sheet2").Range("A:A").ClearContents
  For i = 1 To Sheets("sheet1").Range("F600000").End(xlUp).Row
     For j = 6 To 25
          Sheets("sheet2").Cells(i, 1) = Sheets("sheet2").Cells(i, 1) & Chr(9) & Sheets("sheet1").Cells(i, j)
     Next
  Next
End Sub

热心网友时间：2024-01-03 18:48

Sub aa()
For i = 1 To Cells(Rows.count,6).End(3).Row
Cells(i,27) = Join(Application.Transpose(Application.Transpose(Range("F" & i).Resize(1,21))), "")
Next
End Sub

热心网友时间：2024-01-03 18:49

如果单元格全部是文本, 而不是数值
就在Z1单元格输入公式
=PHONETIC(A1:Y1)
下拉填充即可

如果是数值, 就才用VBA追问只要VBA

热心网友时间：2024-01-03 18:49

二楼的程序有一定的问题，TRANSPOSE应用受到*的，数据量小时才用，大时用不成。把代码写长一些，如公式一样长就可以了。