使单元格等于 Excel 中其列和行 headers 的串联

Question

我有一个（大）table，行和列 header 格式如下： table with row and column headers

我想将标有 'x' 的单元格设置为 header 列和 header 行的串联，并用逗号分隔。例如，单元格 B2 应设置为 "c1_HEADER, r1_HEADER"。

我可以使用一个公式来实现这个目标吗？至少通过单击 'x' 标记的单元格并应用公式？我不想一路走手动路线:/.

TIA。

Answer 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 是便于循环的单单元格范围。

使单元格等于 Excel 中其列和行 headers 的串联

Make a cell equal to a concatenation of its column and row headers in Excel

excel

cell

columnheader

rowheader