[求助]如何合并单元格单求和，请各位帮忙！

blue_prince · 发表于 2006-12-28 13:21

G1gzSulq.rar (6.81 KB, 下载次数: 9)

不好意思，我再次上传新的

clark · 发表于 2006-12-28 14:26

"根据有无分店，有N个时，按N-1增加计算卸货点数"
这个要求有难度,因为重名只能算一个,这样要计算分店的个数算法比较麻烦,等于求动态数组中非重复项的个数。

下班再好好想想吧，这两天上班很忙。

clark · 发表于 2006-12-28 14:53

你的指令单日期是否原本就是序时的，不用排序？最好是这样，否则日期排序都很难

guangyp · 发表于 2006-12-28 19:08

oOZZXwo7.rar (5.59 KB, 下载次数: 24)

blue_prince · 发表于 2006-12-28 23:00

指令日期原本就是这样

clark · 发表于 2006-12-29 10:05

表头的格式是不变的吧,因为排序必须去掉表头及合并单元格,我得确认:

1、格式是否固定.

2、多长时间处理一次这样的业务，或者说，你的这项业务是否跨年度

这两天会计师事务所来年审,甚忙,我抽空再做吧

[此贴子已经被作者于2006-12-29 11:30:52编辑过]

shizx98 · 发表于 2006-12-29 12:57

可以用VBA解决。以下是代码：

在表1中，把A2:A12命名为shijian，把B2:B12命名为minchen，

把C2：C12命名为yuanfei,把D2:D12命名为hebin

在表1上，画一按钮，把hong()指定给它。使用时点此按钮，就可执行宏了。

Sub hong()
    Dim MyCount As Integer

    Worksheets(1).Activate
    Range("hebin").Select
    With Selection
        .MergeCells = False
        Selection.ClearContents

    End With

    Range("d2").Select
    MyCount = 1
    Do Until MyCount = 0
        Selection.FormulaArray = "=SUM(IF(shijian=RC[-3],IF(xinmin=RC[-2],1,0)))"
        MyCount = Selection.Value
        If MyCount > 1 Then
        Selection.FormulaArray = "=SUM(IF((shijian=RC[-3])*(xinmin=RC[-2]),yuanfei,0))"

        Selection.Offset(0, 0).Resize(MyCount).Select
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
        Selection.Merge
        Else
        Selection.FormulaArray = "=SUM(IF((shijian=RC[-3])*(xinmin=RC[-2]),yuanfei,0))"
        End If
        Selection.Offset(1, 0).Select
    Loop
    Selection.Offset(-1, 0).Select
    Selection.Clear
    tongcen
End Sub

Sub tongcen()

    Dim MyCount As Integer

    Worksheets(1).Activate
    Range("e2").Select
    MyCount = 1
    Do Until MyCount = 0
        Selection.FormulaArray = "=SUM(IF(shijian=RC[-4],IF(xinmin=RC[-3],1,0)))"
        MyCount = Selection.Value
            For x = 1 To MyCount
               If x > 1 Then
                    Selection.Formula = 25
                    Selection.Offset(1, 0).Select
               Else
                    Selection.Formula = 0
                    Selection.Offset(1, 0).Select

               End If
            Next

    Loop
    Selection.Clear

End Sub

clark · 发表于 2006-12-30 09:22

新要求算法昨晚2点搞定,看附件。

jdJvOc3O.rar (26.16 KB, 下载次数: 21)

[此贴子已经被作者于2006-12-30 9:25:43编辑过]

blue_prince · 发表于 2006-12-30 13:06

clark大师辛苦了，为了这事儿工作到晚上两点，实在让人肃然起敬，佩服佩服！！

本人仍就这个问题想问一下，如果再加一个条件，即：

表格结构如上,要求:
1、结算体积这一列，根据日期、客户名称判断是否合并单元格，如日期和客户名相同时则合并单元格求和
少于3按3列示，大于3按实际数列示
2、根据有无分店，有N个时，按N-1增加计算卸货点数 3.如日期相同，分店大于3个，则前3个分店为一组，少于3个方按3个方计算体积和运费，后面卸货点为N-1, 以此类推如果后面分店数少于3个，体积少于3个方按3个方算，增加卸货点按N-1计算那又怎么解决呢？我运行大师的程序得出来的结果是这样子的

[此贴子已经被作者于2006-12-30 13:13:32编辑过]

clark · 发表于 2006-12-30 13:48

如果有8个分店,是分成3个+3个+2个,还是3个+5个?

为什么要这么合并？有特殊需要[em09]

还有什么具体要求你一次说清楚,以便编写代码,否则,重复修改代码很麻烦,

[此贴子已经被作者于2006-12-30 17:33:18编辑过]

		自动登录	找回密码
密码			免费注册

[求助]如何合并单元格单求和，请各位帮忙！

不好意思

用函数+条件格式可实现楼主要求

辛苦您好！