如何修改Excel VBA代码实现双变量计算结果按指定格式输出到新表

问题原因 #

原代码存在以下核心错误导致输出不符合预期：

• For循环已内置步长参数，代码中手动给循环变量x、y叠加步长，会导致实际取值跳过一半的目标数值
• 每次外层x循环都会重置行号Z=3，新的x对应的计算结果会直接覆盖上一轮x的输出内容
• 大量使用Select、ActiveCell这类录制宏生成的冗余代码，运行效率低且容易因工作表激活异常出错
• 没有提前给输出表做表头排版，未标注对应的x、y变量值，导致输出内容无对应标识

修改后代码 #

Sub 变量计算输出()
    Dim outSheet As Worksheet
    Dim x As Double, y As Integer
    Dim outRow As Long, outCol As Long
    ' 新建输出工作表
    Set outSheet = Sheets.Add(After:=ActiveSheet)
    outRow = 2 ' 输出内容起始行
    ' 先写入y轴表头（第一行，从C列开始放y的取值）
    outCol = 3
    For y = 10 To 100 Step 10
        outSheet.Cells(1, outCol) = y
        outCol = outCol + 1
    Next y
    ' 外层循环：x从0.25到5步长0.25
    For x = 0.25 To 5 Step 0.25
        ' 第一列放当前x的取值，B6:B9共4行结果，对应4行位置标注同一个x
        outSheet.Cells(outRow, 1).Resize(4, 1) = x
        ' 内层循环：y从10到100步长10
        outCol = 3
        For y = 10 To 100 Step 10
            ' 直接给Sheet1赋值，无需选中操作
            Sheets("Sheet1").Range("B2").Value = x
            Sheets("Sheet1").Range("B3").Value = y
            ' 复制计算结果到输出表，保留数值和格式
            Sheets("Sheet1").Range("B6:B9").Copy
            outSheet.Cells(outRow, outCol).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
            outCol = outCol + 1
        Next y
        ' 下一个x的输出起始行向下偏移4位，避免覆盖
        outRow = outRow + 4
    Next x
    ' 清空剪贴板
    Application.CutCopyMode = False
End Sub

调整说明 #

如果需要把每组4个计算结果横向排列（即每个x+y的组合对应1行4列输出），可以把粘贴代码改为：

outSheet.Cells(outRow, outCol).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Transpose:=True

同时把outRow = outRow + 4改为outRow = outRow + 1即可。

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