我是VBA的新手，想完善复杂电子表格中的最后一步。我希望有人能帮助我。
我需要根据在相邻单元格中找到的历史日期将EUR转换为USD，我需要对整列进行此操作。
我的查询在插入固定日期且没有变量的情况下工作正常。在插入适当的变量日期时，如何使用VBA对每一行运行这种类型的查询？
我的B列带有日期，R列带有修改的日期，S列带有EUR值。
我的目标单元格类似于下面的公式，其中我在括号中插入了我需要将变量应用于搜索查询的地方。 （日期）。 基本上：如果B5为空-不执行任何操作，如果R5（修改日期）为空-使用B5日期进行搜索，否则使用R5日期进行搜索
=IF( B5="", "", IF(R5="",[QUERY DATE VALUE IS B5] S5*XCH!B2, [QUERY DATE VALUE IS R5] B5*XCH!B2))
很抱歉，如果我在这里不是很熟练，那么我将包括所有的信息。
我的工作查询（不是VBA）是这样设置的：（注意查询中的日期） 应用步骤：
来源：= Web.Page(Web.Contents("https://www.x-rates.com/historical/?from=EUR&amount=1&date=2018-07-01"))
导航：= Source{0}[Data]
更改的类型：= Table.TransformColumnTypes(Data,{{"Euro", type text}, {"1.00 EUR", type number}, {"inv. 1.00 EUR", type number}})
已删除的底部行：= Table.RemoveLastN(#"Changed Type",8)
例如，在我的目标单元格中，下面的简单公式通过使用插入查询中的固定日期（而不是适当的日期）来工作。
=IF( B5="", "", IF(R5="", S5*XCH!B2, S5*XCH!B2))
现在，如何分别根据R5和S5中的值获得每个单元格BUT的上述结果？
是否甚至可以为列中的每个单个单元格运行VBA？当前，所有数据都是通过宏从另一个工作表导入的。没有用户输入。
因此，我要么使用宏按钮来更新单击时的所有值，要么使用VBA在导入数据后更新EUR值。
我非常感谢我能获得的任何帮助。