Excel:写列和行名称与特定值连接?

布罗姆

我一直在尝试为下一个问题写一个公式,但是我从来没有正确。所以:

我必须在2D数组中找到前n个值,并记下与该值相关的行和列的名称(没有重复项!)。例如,这是一个数组:

           A        B       C       D        E        F
    1             Aron    Jamie    Matt   Taylor    Zedd
    2    Aron      -        5       7       6         8
    3    Jamie     5        -       2       4         3
    4    Matt      7        2       -       15        12
    5    Taylor    6        4       15      -         26
    6    Zedd      8        3       12      26        -

应使用公式记录的内容,在此示例中,前3个值以及与这些值相关的名称:

A        B     C
Taylor  Zedd  26
Taylor  Matt  15
Matt    Zedd  12

谢谢!

加里的学生

使用您的数据,运行以下宏:

Sub dural()
    Dim i As Long, j As Long, K As Long
    i = 3: j = 2: K = 1

    Do
        Cells(K, "G") = Cells(i, 1)
        Cells(K, "H") = Cells(1, j)
        Cells(K, "I") = Cells(i, j)
        K = K + 1
        j = j + 1
        If Cells(i, j).Value = "-" Then
            j = 2
            i = i + 1
            If i = 7 Then Exit Do
        End If
    Loop

    Range("G1:I10").Select
        ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("I1:I10") _
            , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("Sheet1").Sort
            .SetRange Range("G1:I10")
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
End Sub

将在GHI列中为您提供完整的结果

选择前三行以获取前三项结果:

在此处输入图片说明

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

获取特定行的列名称和Excel中的匹配列

来自分类Dev

如何按名称将值分配给特定的行和列?

来自分类Dev

遍历列和行以计算特定值

来自分类Dev

Excel UDF 按名称指定表格行和列

来自分类Dev

将A列和E列的excel值与B列和D列的名称匹配

来自分类Dev

连接列和行

来自分类Dev

连接行和列

来自分类Dev

从数据网格获取特定行和特定列的值

来自分类Dev

Excel宏:打印带有可变列的特定行的值

来自分类Dev

连接匹配行的特定列

来自分类Dev

用给定列的值连接列名称

来自分类Dev

连接列名和列值

来自分类Dev

为R中的特定列和行分配值

来自分类Dev

SQL对多个列和行计数特定值

来自分类Dev

如何根据特定的列和值显示行

来自分类Dev

Excel中的特定行值

来自分类Dev

在Pandas中按特定值连接行

来自分类Dev

从Excel删除特定的行/列

来自分类Dev

如果列和行的值是空的或空白,则将其填充为其他特定列的值

来自分类Dev

连接和空值行未显示

来自分类Dev

如何在Excel的特定行和列中存储许多文本框和标签?

来自分类Dev

对于每一行,返回列索引和非NA值的名称

来自分类Dev

根据 r 中特定行上方和下方的值构建具有值的新列

来自分类Dev

通过连接 subid 值和其他列名,从分组行扩展/创建 Pandas 列

来自分类Dev

如何将具有名称+值作为列的特定ID的行转换为针对该唯一ID组合的这些行名称的列

来自分类Dev

计算所有表中特定列和列值的行

来自分类Dev

Excel短写空白列

来自分类Dev

连接名称的值计数

来自分类Dev

Excel VBA计算包含特定值的行