恩。比较多的却是要宏来做,代码如下:
Sub conn()
Dim i As Integer, iTargetRow As Integer
iTargetRow = Selection.Row
For i = 1 To [a1].End(xlDown).Row
Cells(i, 1).Resize(1, Cells(i, 255).End(xlToLeft).Column).Copy
Cells(iTargetRow, Cells(iTargetRow, 255).End(xlToLeft).Column + 1).PasteSpecial
Next
Cells(iTargetRow, 1).Select
If Cells(iTargetRow, 1) = "" Then Cells(iTargetRow, 1).Delete Shift:=xlToLeft
End Sub
操作方法:选中要合并到的目标行,然后运行宏
温馨提示:答案为网友推荐,仅供参考