|
本帖最后由 france723 于 2017-4-26 15:36 编辑
- Sub zzz()
- Dim y, i&, ar, j&, k, cr
- Dim m&, n&, p, q&, z&, x&, s, s1
- y = Range("b65536").End(3).Row
- h = Range("k65536").End(3).Row
- br = Range("k2:l" & h)
- For x = 1 To UBound(br)
- br(x, 1) = br(x, 2) / 1.2
- Next x
- Range("k2").Resize(UBound(br), 2) = br
- ReDim ar(1 To y - 1)
- j = 1
- For i = 2 To y
- k = Cells(i, 1).MergeArea.Rows.Count
- ar(j) = k
- j = j + 1
- Next i
- ReDim cr(1 To 1)
- cr(1) = 2
- n = 1
- For m = 2 To UBound(ar)
- If ar(m) <> ar(m - 1) Then
- n = n + 1
- ReDim Preserve cr(1 To n)
- cr(n) = m + 1
- End If
- Next m
- q = 1
- For Each p In cr
- k = Cells(p, 1).MergeArea.Rows.Count
- s = 0
- s1 = 0
- For z = q To q + k - 1
- s = s + br(z, 1)
- s1 = s1 + br(z, 2)
- Next z
- Cells(p, 3) = "HeJi: " & k & " Kuai " & Left(s, 4) & " Mu"
- Cells(p, 4) = "HeJi: " & k & " Kuai " & Left(s1, 4) & " Mu"
- q = q + k
- Next p
- End Sub
复制代码
新手代码可能略复杂,但测试没有错误. 37,38行拼音换汉字即可
|
|