如何使用 .Value 获取单元格值并搜索具有相同值的另一个单元格？

Question

所以我计算了从开始日期起 18 个月后的日期，然后在 18 个月后删除每一列。

E2 是我目前存储计算的 18 个月后价值的地方。所以这周，18 个月后是 7/24/2023.. 我需要这个来在第 1 行中搜索 7/24/2023，找到它，然后删除之后的每一列。

Range(Cells(1, Range("1:1").Find(What:=Range("E2").Value.Column + 1), 
_ Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)).EntireColumn.Delete

Answer 1

你的 +1 放错地方了

使用 find() 时最好检查是否匹配：

Dim f as Range, ws as Worksheet

set ws = Activesheet
Set f = ws.Rows(1).Find(What:=ws.Range("E2").Value)
If Not f Is Nothing then
    ws.Range(f.Offset(0, 1), ws.Cells(1, ws.Columns.count).End(xlToLeft)).EntireColumn.Delete
End if

如何使用 .Value 获取单元格值并搜索具有相同值的另一个单元格？

How do I use .Value to get cell value and search for another cell w same value?

excel

vba

find