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

Question

I've looked high and low for this and can't find a solution. Plenty with formulas, but it must be in VBA.

I have a range of text in column A (A2:A100) and dates in column B (B2:B100), with sequential calendar dates in row 1 (C1:Z1). For every cell in the matrix/table, if the date in column B is the same as the date in row 1, the text in corresponding column A must be displayed. I can't use a VLOOKUP or MATCH formula, as the columns are narrow and don't display the full text unwrapped because of the formula in the adjacent cell. Thanks for any guidance. In the below, N2 must be "Electrician chasing", since N1 is the same as B2.

Answer 1

I think you want this (and you got your columns A and B the wrong way round)

 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