我正在尝试在 MS 的 Excel VBA 中实现快速傅立叶变换（Radix-2）。我使用的代码从工作表中的某个范围中提取数据，进行计算，然后将结果转储到相邻列中。我遇到的问题是 1) 知道如何处理生成的 X[k] 数组，以及 2) 将这些结果与 Excel 内置 FFT 的结果匹配（它们当前不匹配）。代码如下所示。在此先感谢您的帮助。
Sub Enforce_DecimationInTime()
On Error GoTo ERROR_HANDLING
Dim SubName As String
SubName = "Enforce_DecimationInTime()"
Dim WS As Worksheet
Dim n As Long, v As Long, LR As Long, x As Long
Set WS = Worksheets("FFT")
LR = WS.Range("A" & Rows.Count).End(xlUp).Row
n = LR - 1
Do Until 2 ^ x <= n And 2 ^ (x + 1) > n 'locates largest power of 2 …