[已解决]如何将选中的几行数据进行合并？

jessylake

先选择要合并的几行数据，附件中提供了两行，只要选中两行数据中的部分区域即可，然后进行合并，除价格外，其他列都是对应相加，最后计算出平均价格。 数据合并.zip (15.55 KB, 下载次数: 7)

2015-11-23 19:39 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2015-11-23 20:55

Sub Macro1()
On Error Resume Next
h = Selection(1).Row
hs = Selection.Rows.Count
arr = Cells(h, 4).Resize(hs, 4)
ReDim brr(1 To 1, 1 To 4)
For j = 1 To 4
    If j <> 2 Then
        For i = 1 To hs
            brr(1, j) = brr(1, j) + arr(i, j)
        Next
    End If
Next
brr(1, 2) = (brr(1, 3) + brr(1, 4)) / brr(1, 1)
Cells(h, 4).Resize(hs, 4) = ""
Cells(h, 4).Resize(1, 4) = brr
End Sub

跳转到最佳答案楼层

jessylake

如果选择两条数据的话，可以选择 D5：G6这个完整区域 ,也可以是其中的一部分如 E5：E6 或 E5：F6 等 ，不要选择整行

jessylake

数据1、数据2合并后的数据放在数据1的位置

dsmch

Sub Macro1()
On Error Resume Next
h = Selection(1).Row
hs = Selection.Rows.Count
arr = Cells(h, 4).Resize(hs, 4)
ReDim brr(1 To 1, 1 To 4)
For j = 1 To 4
    If j <> 2 Then
        For i = 1 To hs
            brr(1, j) = brr(1, j) + arr(i, j)
        Next
    End If
Next
brr(1, 2) = (brr(1, 3) + brr(1, 4)) / brr(1, 1)
Cells(h, 4).Resize(hs, 4) = ""
Cells(h, 4).Resize(1, 4) = brr
End Sub

jessylake

dsmch 发表于 2015-11-23 20:55
Sub Macro1()
On Error Resume Next
h = Selection(1).Row

老师您再帮我看看这个，要求更高了，不知能否实现
如何将多选取的几行数据进行合并，并重新排列？（升级版）
http://www.excelpx.com/thread-373169-1-1.html