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

Question

为此，我看上去又高又低，找不到解决方案。公式很多，但必须在VBA中。

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

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