请问大神我的这堆代码如何将得出的aj，a和Y的结果输出到一个EXCEL表格中？

一种是 操作 EXCEL，对指定的表格进行操作。
一种是使用 ODBC把EXCEL表格当然一个数据库来打开，然后按操作数据库的方法来操作。
第三种是使用 CSV 格式的文件。你这种简单文件，建议这种。

CSV 格式文件就是 逗号分隔的数据的一个文本文件。

Dim aj As Double, H As Double, B As Double, W As Double, R As Double, K As Double, Y As Double, a As Double
Open App.Path & "\AAA.csv" For output As #1            '打开文件，每次新建
print #1 , " , a , y "                                 '输出标题
for aj                      '你前面FOR循环开始

BackColor = vbWhite
FontSize = 12
CurrentX = 5500
Print "aj="; aj, "a="; a, "Y="; Y             '在屏幕上显示
Print #1, aj & " , " &  a & " , " &   Y       '输出到文件
Next aj
close #1          '关闭文件