使细胞等于其列和行头在Excel

Question

串联

我有以下格式的行和列标题（大）表： table with row and column headers

我想设置标记细胞用'x'连接列标题和行标题，用逗号分隔。 例如，单元格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是便于循环的单个单元格范围。