当然有简便的实现方法！咱们直接用VBA代码把你现有的宏包装一下，就能自动运行100次并把结果依次存入B1、C1……直到第100次对应的单元格。下面是具体方案：

1. 调用你已有的计算宏生成新结果
2. 自动定位到当前需要写入的列（首次是B列，后续依次右移）
3. 循环执行上述步骤100次

假设你现有的宏名为GenerateResult，并且它会把计算结果输出到Sheet1的A1单元格（如果你的实际情况不同，直接替换对应的单元格地址和宏名即可）：

Sub AutoRunAndRecord()
    Dim i As Integer
    Dim targetCol As Integer
    Dim resultCell As Range
    
    ' 关闭屏幕更新，避免运行时屏幕闪烁，提升效率
    Application.ScreenUpdating = False
    
    ' 替换成你现有宏输出结果的单元格地址
    Set resultCell = ThisWorkbook.Sheets("Sheet1").Range("A1")
    
    ' 循环100次，依次记录结果
    For i = 1 To 100
        ' 运行你现有的计算宏，生成新结果
        GenerateResult
        
        ' 计算目标列：第1次是B列（第2列），第2次是C列（第3列）...
        targetCol = 1 + i
        
        ' 将结果写入第1行的目标列
        ThisWorkbook.Sheets("Sheet1").Cells(1, targetCol).Value = resultCell.Value
    Next i
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    
    MsgBox "100次数据已全部记录完成！"
End Sub

• 替换结果单元格：把Set resultCell = ...里的单元格地址改成你现有宏输出结果的实际位置（比如你的宏把结果存在Sheet2的D5，就改成ThisWorkbook.Sheets("Sheet2").Range("D5")）
• 替换宏名：如果你的现有宏不是叫GenerateResult，把代码里的GenerateResult改成你实际的宏名称
• 调整循环次数：如果想运行不是100次，直接把For i = 1 To 100里的100改成你需要的次数

如果你的计算宏运行耗时较长，可以在循环里加一句延迟（可选），避免Excel无响应：

' 在GenerateResult之后添加
Application.Wait Now + TimeValue("00:00:01") ' 延迟1秒，可根据需要调整

1. 保存文件时要选择.xlsm格式（因为要包含宏代码）
2. 运行前确保Excel已启用宏（依次点击「文件」>「选项」>「信任中心」>「信任中心设置」>「宏设置」，选择合适的宏启用选项）

内容的提问来源于stack exchange，提问作者user869299