Excel - 如何将列标题与行标题（日期）匹配，并在VBA中返回查找值

Question

我为此寻找高低，无法找到解决方案。配方很多，但必须在VBA中。

我在A列（A2：A100）中有一系列文字，在B栏（B2：B100）中有日期，连续日历日期在第1行（C1：Z1）。对于矩阵/表中的每个单元格，如果列B中的日期与第1行中的日期相同，则必须显示相应列A中的文本。我不能使用VLOOKUP或MATCH公式，因为列很窄并且由于相邻单元格中的公式而不显示展开的全文。谢谢你的指导。在下面，N2必须是“电工追逐”，因为N1与B2相同。

Answer 1

我想你想要这个（并且你的A和B列的方向错了）

 Sub LoopAndDisplay
 Dim r as range
 For each r in range("C2:Z200")
     If cells(1,r.column) = cells(r.row,2) then 'if date above matches column B then 
        r = cells(r.row,1)  'display contents of column A
     End If
 Next R
 End Sub