如何检查多个列值并根据单元格值将列名添加到字符串

Question

在excelsheet中，我有500条记录，包含50个或更多列。我需要检查单元格值为yes的所有列，将该列标题添加到相应行中以分号分隔的字符串。例如：

Delhi   Jaipur  Basel   Colombia    Peris   London  Dubai   Munich   List
no      no      yes     yes         no      no      no      yes     Basel;Munich
yes     no      no      no          no      no      yes     no      Delhi;Dubai
no      no      no      no          no      no      no      no  
no      no      yes     yes         no      no      no      no      Basel;Colombia

赞赏任何意见。

Answer 1

尝试：

Dim answer as String
For i=2 to Range("A1").End(xlDown).Row
   answer=""
   For j=1 to 8
      If Cells(i,j)="yes" then
         answer=answer & Cells(1,j).Value & ";"
      End if
   Next j
   Cells(i,9)=answer
Next i

请注意，这仅适用于您的示例，您需要检查列号。