0

我有一个(大)表,其中包含以下格式的行标题和列标题: 具有行标题和列标题的表

我想将标有“x”的单元格设置为列标题和行标题的串联,用逗号分隔。例如,单元格 B2 应设置为“c1_HEADER,r1_HEADER”。

有没有我可以用来实现这一目标的公式?至少通过单击“x”标记的单元格并应用公式?我不想一路走手动路线:/。

TIA。

4

1 回答 1

1

如果我们开始:

在此处输入图像描述

运行这个宏:

Sub luxation()
    Dim r As Range

    For Each r In Range("B2").CurrentRegion
        If r.Value = "x" Then
            r.Value = r.EntireColumn.Cells(1).Value & "," & r.EntireRow.Cells(1).Value
        End If
    Next r
End Sub

将产生:

在此处输入图像描述

笔记:

在这个宏中Range("B2").CurrentRegion代表我们正在循环的单元格。该变量r是一个便于循环的单单元格范围。

于 2016-05-29T14:28:31.520 回答