求个大神帮我写个vba，能生成后面的，

Question

如题所述

Answer 1

会弄就参考我的代码自己折腾，不会弄就下载附件我弄好的！

Option Explicit

Sub sMerge()
    Dim i As Integer, k As Integer
    Dim t As Double, l As Double
    With Sheet1
        For i = 5 To 1136
            If .Range("b" & i).MergeCells Then
                If .Range("b" & i).MergeArea.Count > 1 Then
                    k = .Range("b" & i).MergeArea.Count - 1
                    t = Application.Sum(.Range("k" & i & ":k" & i + k))
                    l = Application.Sum(.Range("l" & i & ":l" & i + k))
                    .Range("c" & i) = "合计:" & vbCrLf & k + 1 & "块" & vbCrLf & t & "亩"
                    .Range("d" & i) = "合计:" & vbCrLf & k + 1 & "块" & vbCrLf & l & "亩"
                    i = i + k
                Else
                    .Range("c" & i) = .Range("k" & i)
                    .Range("d" & i) = .Range("l" & i)
                End If
            End If
        Next i
    End With
End Sub

 

Answer 2

发模拟表格给我，我写个代码测试一下。追问

http://pan.baidu.com/s/1o7IGEOa gi4c

Answer 3

都变成一个名字4行组成？要是有5块地的呢？