使用列的字段名称替换“1”的存在值

Question

我的第一栏中有独特的情节编号。然后在所有其他列的顶部，我有植物名称：

      Acer   Quercus  Carya 

Plot1 ___ 1 ________ 1 ________ 1

Plot2 ___ 1

Plot3 ___________ 1 ________ 1

Plot4__1 __________________ 1

1表示存在，但我想用列顶部引用的名称替换1。我有成千上万的地块和数百种树种，所以它需要自动化。很抱歉上面的格式很糟糕。

Answer 1

这个VBA片段应该可以解决问题。

Dim column As Integer
For column = 2 To 4 ' Replace from column 2(B) to 4(D).
    ' Replace each occurance of "1" in the column with the header text.
    Columns(column).Replace "1", Cells(1, column).Value
Next

只需调整列号即可根据需要处理的列数进行评估。