如何用For/Do循环简化Excel VBA零件订单计算代码？

当然可以通过For循环大幅精简你的代码，避免重复的单元格赋值操作，同时让代码更易维护。以下是优化后的完整代码及说明：

优化后的代码 #

Global qty As Variant

Sub PartOrder()
    qty = Application.InputBox("How many assemblies are needed?")
    Sheets.Add After:=Worksheets(Sheets.Count)
    PartOrderForm.Show
End Sub

Private Sub CompleteForm_Click()
    Dim sourceSheet As Worksheet
    Dim destSheet As Worksheet
    Dim i As Integer
    
    If CheckBox1.Value = True Then
        ' 定义源/目标工作表变量，避免重复书写长名称
        Set sourceSheet = ThisWorkbook.Worksheets("F8X SUSPENSION LINKS REV2")
        Set destSheet = ActiveSheet
        
        ' 一次性写入表头
        destSheet.Range("A1:C1") = Array("Part Number", "Part Name", "Number of Parts Needed")
        
        ' For循环批量处理数据行
        For i = 7 To 13 ' 源数据行范围是B7到B13
            destSheet.Cells(i - 5, 1).Value = sourceSheet.Cells(i, 2).Value ' 目标行=源行-5（7-5=2对应A2）
            destSheet.Cells(i - 5, 2).Value = sourceSheet.Cells(i, 3).Value
            destSheet.Cells(i - 5, 3).Value = sourceSheet.Cells(i, 6).Value * qty ' F列为第6列
        Next i
    End If
End Sub

优化亮点 #

• 消除重复代码：用循环替代逐行单元格赋值，只需维护循环的起始/结束行即可
• 提升可读性：通过变量简化工作表名称的重复调用，逻辑更清晰
• 增强扩展性：后续新增数据行时，仅需修改循环的To参数（比如从7到15）
• 提高效率：表头用数组一次性写入，比逐单元格赋值更高效

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