» EXCEL高手进
    学艺不精，请教一个问题。。。
    如图。。。
    这个表格的数据是测绘软件按照做好的EXCEL导出来的
    我想在最后一行把套内面积、分摊面积、建筑面积的和求出来，就是合计。
    因为每幢房子的数据是不一样的，所以合计不确定是在哪行，百度了一下，这个要用到VBA。。。太高端了搞不懂
    有高人会不
    
    

网友评论2014-01-02 08:58

    不是很明白你在说什么，看上去用透视表就行了
    

网友评论2014-01-02 09:00

    三个数据相加？不是直接加起来就行了么？VBA不懂，但是如果只是相加 输入=F6+G6+H6不就好了吗，好吧我只有大学学的计算机基础这东西
    

网友评论2014-01-02 09:06

    推荐用数据透视表~功能强大简单方便~~
    常用统计完全可以搞定~~
    而且你这数据格式用数据透视表很合适
    

网友评论2014-01-02 09:08

    每栋房子的数据不一样，所以不确定在哪行？？
    
    意思是不是，不能简单的求和，必需筛选出相应的求和，那么筛选的依据是？？表上有体现吗
    

网友评论2014-01-02 09:10

    从上到下选中，然后点击西格玛那个。。。
    

网友评论2014-01-02 10:03

    Topic Post by 可可西里^_^ (2014-01-02 08:54):
    
    学艺不精，请教一个问题。。。
    如图。。。
    这个表格的数据是测绘软件按照做好的EXCEL导出来的
    我想在最后一行把套内面积、分摊面积、建筑面积的和求出来，就是合计。
    因为每幢房子的数据是不一样的，所以合计不确定是在哪行，百度了一下，这个要用到VBA。。。太高端了搞不懂
    有高人会不
    
    合计放第一行可破
    

网友评论2014-01-02 10:06

    说真的，没看出来楼主到底要表达个什么意思
    

网友评论2014-01-02 10:09

    没看明白
    不过你就把合计数放到可以固定的位置不就得了
    

网友评论2014-01-02 10:16

    你的意思是一栋房子的房间数目不同,所以不好将合计放在哪一行?
    那就放在第一行嘛.
    

网友评论2014-01-02 10:23

    VBA可行，问题是代码给你了，解释半天还不知道你会不会用。
    文档不多就手动用公式最好了，你如果有100个以上的这种文档要处理，再考虑给你写个。
    

网友评论2014-01-02 10:35

    vba是万金油，.net框架下所有的软件都可以用它来操作，楼主要是会一点vb语言的话分分钟搞定
    

网友评论2014-01-02 11:08

    Reply to Reply Post by thorhero (2014-01-02 10:23)
    
    我是要做一个EXCEL模板 ，然后软件是按照这个模板导出数据，最后会自动求和。
    
    大仙，写个来玩玩呗
    

网友评论2014-01-02 11:10

    建筑面积就是套内面积+分摊面积呀。
    你还要求哪个总和？
    

网友评论2014-01-02 11:22

    楼主你的表格，建筑结构和房屋用途的内容填反了吧，建筑结构是混合(框架剪力墙)，房屋用途是住宅啊
    

网友评论2014-01-02 11:41

    Reply Post by 可可西里^_^ (2014-01-02 11:08):
    
    我是要做一个EXCEL模板 ，然后软件是按照这个模板导出数据，最后会自动求和。
    
    大仙，写个来玩玩呗
    如果这个表是软件生成的，那么改这个程序就能实现你的需求。
    宏不是模板，我不明白你说的模板是什么。另外宏也不是软件。
    你如果要别人给你写代码，必须把你的需求毫无误解的详细写出来，最好附上例子。
    
    下面的代码，你在工具->宏里面加上，运行，能把套内面积合生成到下一格里。你图的EXCEL表是从第5行开始的，前面的数据和格式是什么我都不知道，所以结果不保证正确。
    
    Sub yy()
     Dim i As Integer
     Dim MaxRow As Integer
     Dim total As Double
     MaxRow = Sheets(1).UsedRange.Rows.Count
     total = 0
     For i = 1 To MaxRow
     If IsNumeric(Sheets(1).Cells(i, 5)) Then
     total = total + Sheets(1).Cells(i, 5)
     End If
     Next
     Sheets(1).Cells(MaxRow + 1, 5) = total
    End Sub