excel如何选中行按列合并。例如我选两行如何按一列一列合并

发布网友

我来回答

共3个回答

热心网友

怎么个合并法? 单元格合并?还是单元格 内容合并? 你要是选了3行呢?给你个代码你看合适不合适
Sub 按列合并选中的单元格区域()
Dim arr, rng As Range
Dim H, L As Long
If Selection.Count = 1 Or Selection.Rows.Count = 1 Then
MsgBox "你选择的区域只有一个单元格或只有一行,无法合并!"
Exit Sub
End If
arr = Selection.Cells
a = Selection.Rows.Count
H = UBound(arr, 1)
L = UBound(arr, 2)
For i = 1 To L
dz1 = Selection.Cells(1, i).Address(0, 0)
dz2 = Selection.Cells(H, i).Address(0, 0)
Range(dz1 & ":" & dz2) = ""
Range(dz1 & ":" & dz2).Merge '合并单元格
'合并一列的单元格内容
For ii = 1 To H
Range(dz1) = Range(dz1) & arr(ii, i)
Next
Next
End Sub

热心网友

先选择两单元格进行合并，再用格式筛进行格式

热心网友

分别做两次列合并也可以。