将列中的日期更新为Unix时间戳

Question

我在excel中有一个标题为“日期”的列（B），当excel根据区域转换日期格式时，这会导致我进一步遇到一些问题。因此，我想将日期转换为Unix时间戳。

Private Function Date2Long(dtmDate As Date) As Long
    Range("B2").Formula = "(dtmDate - #1/1/1970#) * 86400"
    Range("B2", "B" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown
End Function

我的问题是，如何在不传递dtmDate参数的情况下实现此逻辑，或者如何正确地将其应用于整个列？如果可能的话，我不想创建一个新列，只需转换/覆盖现有日期即可。另外，我该如何通过列名而不是索引来引用“ B”？