[已解决]关于插入单元格的问题

w13579

如何按日期时间判断并插入单元格 计算总和！一天一问

最佳答案

月排行榜 / 总排行榜

爱疯

2012-9-14 23:48

关于插入单元格的问题.rar (351.04 KB, 下载次数: 16)

2012-9-14 23:45 上传

点击文件名下载附件

是分类汇总？

跳转到最佳答案楼层

蓝桥玄霜

请做个效果看看。怎么按日期插入？插在哪里？

w13579

蓝桥玄霜 发表于 2012-9-14 17:21
请做个效果看看。怎么按日期插入？插在哪里？

这样的效果。。。。。。。。。求教！

w13579

有办法么  应该可以吧  能计数 计算和应该行的

爱疯

关于插入单元格的问题.rar (351.04 KB, 下载次数: 16)

2012-9-14 23:45 上传

点击文件名下载附件

是分类汇总？

zzbilly

我想他要的是这个效果 只是想用VBA代码去做 而又不想简单的运用宏去录制 我记得兰老师的VBA80集里有这样的实例

chin15

1. Sub test()
   
2.     Dim arr, arr2(), i&, j&, m&, x&, t As Date
   
3.     arr = Range([a2], [d65536].End(3))
   
4.     For i = 1 To UBound(arr)
   
5.         m = m + 1: x = x + arr(i, 4)
   
6.         ReDim Preserve arr2(1 To 5, 1 To m)
   
7.         For j = 1 To 4
   
8.             arr2(j, m) = arr(i, j)
   
9.         Next
   
10.         If i < UBound(arr) Then t = arr(i + 1, 2) Else t = 0
    
11.         If t <> arr(i, 2) Then
    
12.             m = m + 1
    
13.             ReDim Preserve arr2(1 To 5, 1 To m)
    
14.             arr2(4, m) = "total:": arr2(5, m) = x: x = 0
    
15.         End If
    
16.     Next
    
17.     [a2].Resize(m, 5) = Application.Transpose(arr2)
    
18. End Sub
    

复制代码

w13579

爱疯 发表于 2012-9-14 23:48
是分类汇总？

爱疯大哥 图片动不起来，是动态教程么，==好像上传能预览~

爱疯

因为感觉这个动画文件大了，怕影响页面浏览速度，所以只上传，才没在正文预览。

其实，如果楼主前面说清了题意和要求，可能很早就被大家解决了。

这是gif工具录制的动画，具体可在会员中心，查看《帮助贴》，有相关介绍。

w13579

爱疯 发表于 2012-9-15 12:33
因为感觉这个动画文件大了，怕影响页面浏览速度，所以只上传，才没在正文预览。

其实，如果楼主前面说清 ...

=SUMPRODUCT((A3=LEFT(鞋子筆數!$D$2:$D$38056,8)*1)*(鞋子筆數!$G$2:$G$38056))     这里面8代表什么意思？