設為首頁收藏本站|繁體中文

Excel 技巧網

 找回密碼
 注冊

QQ登錄

只需一步,快速開始

手機號碼,快捷登錄

查看: 1190|回復: 7
打印 上一主題 下一主題

[待分類提問] 如何把表內同一名稱對應的行、列標匯總到對應名稱后

[復制鏈接]
跳轉到指定樓層
樓主
發表于 2019-8-31 17:54:03 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式

免費注冊成為本站會員,享用更多功能,結識更多Office辦公高手!

您需要 登錄 才可以下載或查看,沒有帳號?注冊

x
如何把表內同一名稱對應的行、列標匯總到對應名稱后 匯總.zip (8.2 KB, 下載次數: 22)

分享到:  QQ好友和群QQ好友和群
收藏收藏
2
發表于 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

評分

參與人數 1魅力值 +5 消費券 +50 收起 理由
xiangbaoan + 5 + 50 感謝幫助:)

查看全部評分

3
發表于 2019-9-8 14:48:13 | 只看該作者
請教大神:若一列數據中的最后一段數字是連續大于0的數據,如何將這些連續大于0的數據提取出來?(提取出的必須是連續大于0的數字,區間不能提取出0或負數;或換個說法:一旦最后一段連續數字中出現0或負數,提取的數字應該是0或負數之后一直到末尾的連續數據)
4
發表于 2019-9-9 08:29:46 | 只看該作者
xdyd 發表于 2019-9-8 14:48
請教大神:若一列數據中的最后一段數字是連續大于0的數據,如何將這些連續大于0的數據提取出來?(提取出的 ...

最好截圖看下

評分

參與人數 1魅力值 +5 消費券 +50 收起 理由
xiangbaoan + 5 + 50 感謝幫助:)

查看全部評分

5
發表于 2019-10-20 18:58:31 | 只看該作者
學習!
6
發表于 2019-11-5 19:04:46 | 只看該作者
這么少的帖,灌一下。
7
發表于 2019-12-5 10:04:29 | 只看該作者
剛入坑,感覺好高端
8
發表于 2019-12-6 08:29:13 | 只看該作者
學習中謝謝
您需要登錄后才可以回帖 登錄 | 注冊

本版積分規則

關閉

站長推薦上一條 /1 下一條

Archiver|手機版|Excel技巧網 ( 閩ICP備08107682號-2

GMT+8, 2020-1-20 08:35

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回復 返回頂部 返回列表
国际冠军杯