设为首页收藏本站|繁體中文

Excel 技巧网

QQ登录

只需一步,快速开始

手机号码,快捷登录

查看: 1806|亚博体育app安卓: 8

[待分类提问] 如何把表内同一名称对应的行、列标汇总到对应名称后

[复制链接]
发表于 2019-8-31 17:54:03 | 显示全部楼层 |阅读模式

免费注册成为本站会员,享用更多功能,结识更多Office办公高手!

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

x
如何把表内同一名称对应的行、列标汇总到对应名称后 汇总.zip (8.2 KB, 下载次数: 28)
发表于 2019-9-7 14:23:30 | 显示全部楼层
本帖最后由 约定的童话 于 2019-9-9 10:34 编辑

Sub test()
    Dim i, n, arr, brr, d As Object
    Set d = CreateObject("scripting.dictionary")
    arr = Range("b2:g" & [b65536].End(3).Row)
    ReDim brr(1 To UBound(arr) * UBound(arr, 2))
    For i = 1 To UBound(arr)
        For j = 1 To 6
            t = arr(i, j)
            If Not d.exists(t) Then
                n = n + 1
                d(t) = n
                brr(n) = arr(i, j)
            End If
        Next
    Next
    [j2].Resize(UBound(brr)) = Application.Transpose(brr)
    Call 匹配
End Sub
Sub 匹配()
    Dim i, n, arr, brr
    arr = [a1].CurrentRegion
    brr = [j1].CurrentRegion
    For i = 2 To UBound(brr)
        For n = 2 To UBound(arr)
            For j = 2 To 7
                If arr(n, j) = brr(i, 1) Then
                    brr(i, 2) = brr(i, 2) & "、" & arr(1, j) & arr(i, 1)
                End If
            Next
        Next
    Next
    [j1].Resize(UBound(brr), 2) = brr
End Sub

2019.09.07-14.18.36.gif

评分

参与人数 1魅力值 +5 消费券 +50 收起 理由
+ 5
+ 50
感谢帮助:)

查看全部评分

发表于 2019-9-8 14:48:13 | 显示全部楼层
请教大神:若一列数据中的最后一段数字是连续大于0的数据,如何将这些连续大于0的数据提取出来?(提取出的必须是连续大于0的数字,区间不能提取出0或负数;或换个说法:一旦最后一段连续数字中出现0或负数,提取的数字应该是0或负数之后一直到末尾的连续数据)
发表于 2019-9-9 08:29:46 | 显示全部楼层
xdyd 发表于 2019-9-8 14:48
请教大神:若一列数据中的最后一段数字是连续大于0的数据,如何将这些连续大于0的数据提取出来?(提取出的 ...

最好截图看下

评分

参与人数 1魅力值 +5 消费券 +50 收起 理由
+ 5
+ 50
感谢帮助:)

查看全部评分

发表于 2019-10-20 18:58:31 | 显示全部楼层
学习!
亚博体育app安卓

使用道具 举报

发表于 2019-11-5 19:04:46 | 显示全部楼层
这么少的帖,灌一下。
发表于 2019-12-5 10:04:29 | 显示全部楼层
刚入坑,感觉好高端
发表于 2019-12-6 08:29:13 | 显示全部楼层
学习中谢谢
发表于 2020-2-23 21:57:05 | 显示全部楼层
谢谢大师,学习了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /1 下一条

Excel技巧网的会员探讨问题仅代表其个人意见,与网站的立场无关。任何违反国家和地方相关法律法规的言论,本站有义务协助政府相关部门追究发言者的责任!
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者,本站之外任何单位或个人未经允许,不得将其用于商业用途。
若非原文作者,任何形式的非商业性转载必须获得Excel技巧网或作者允许,并注明作者和出处。
会员发表的帖子如涉及版权纠纷,须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问:沈学律师