设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 3769|回复: 5
打印 上一主题 下一主题

交集差集,想加入个表头,难度大。。。。

[复制链接]
跳转到指定楼层
1#
发表于 2008-1-11 20:35:46 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
在期初、期末余额表加一个表头,统计后在减少客户名单、增减客户名单、老客户名单表里自动产生对应的表头。

表头如下:
单位    金额1      金额2    。。。   类别   备注

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2008-1-12 10:24:25 | 只看该作者
难度不大也

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
3#
发表于 2008-1-12 11:35:52 | 只看该作者
感谢欢欢分享, 学习一下
4#
 楼主| 发表于 2008-1-12 12:57:43 | 只看该作者
谢谢欢欢,搞定,回去测试一下几万条大数据量的速度。另外su45写的代码如何?哪种速度会快些?

Sub suaa()
Dim arr1(), arr2(), arr3()
r = [A65536].End(xlUp).Row
rng1 = Range("A2:A" & r)
rng2 = Range("A2:E" & r)
With Sheets("期末余额表")
    r = .[A65536].End(xlUp).Row
    rng3 = .Range("A2:A" & r)
    rng4 = .Range("A2:E" & r)
End With
rng1 = Application.Transpose(rng1)
rng3 = Application.Transpose(rng3)
For i = 1 To UBound(rng3)
    If UBound(Filter(rng1, rng3(i))) > -1 Then
        n = n + 1
        ReDim Preserve arr3(1 To 5, 1 To n)
        For j = 1 To 5
            arr3(j, n) = rng4(i, j)
        Next
    Else
        m = m + 1
        ReDim Preserve arr2(1 To 5, 1 To m)
        For j = 1 To 5
            arr2(j, m) = rng4(i, j)
        Next
    End If
Next
For i = 1 To UBound(rng1)
    If UBound(Filter(rng3, rng1(i))) = -1 Then
        k = k + 1
        ReDim Preserve arr1(1 To 5, 1 To k)
        For j = 1 To 5
            arr1(j, k) = rng2(i, j)
        Next
    End If
Next
With Sheets("减少的客户名单")
    r = .[A65536].End(xlUp).Row
    If r > 2 Then .Range("A3:C" & r).ClearContents
    .[A3].Resize(k, 5) = Application.Transpose(arr1)
End With
With Sheets("新增的客户名单")
    r = .[A65536].End(xlUp).Row
    If r > 2 Then .Range("A3:C" & r).ClearContents
    .[A3].Resize(m, 5) = Application.Transpose(arr2)
End With
With Sheets("老客户名单")
    r = .[A65536].End(xlUp).Row
    If r > 2 Then .Range("A3:C" & r).ClearContents
    .[A3].Resize(n, 5) = Application.Transpose(arr3)
End With
End Sub

[ 本帖最后由 海孩 于 2008-1-12 13:59 编辑 ]

点击这里给我发消息

5#
发表于 2008-1-12 13:33:18 | 只看该作者
学习学习了
6#
发表于 2008-1-17 09:27:13 | 只看该作者
學習中,幾萬條的速度應該很慢吧!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-14 16:42 , Processed in 0.081251 second(s), 30 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表