VBA循环遍历单元格优化：重复代码的循环改写问题咨询

你原来的Insert_1代码功能正常，但重复写十几行赋值语句确实冗余，用循环优化的思路完全没问题，不过你的尝试代码里有几个VBA语法和逻辑上的小问题，我帮你修正并优化一下：

先说说你尝试代码里的问题点： #

• 数组名拼写不一致：定义的是form_cells，循环里写成了form_cels
• VBA里没有indexOf方法，无法直接获取数组元素的索引
• Split("BCDEFGHIJKLMNOPQ", -1)用法错误，Split的第二个参数是分隔符，这里应该直接把目标列做成对应数组
• 循环变量逻辑混乱：你用了For x但结尾写Next elm，变量不匹配

修正后的完整代码 #

Sub Insert_1_Optimized()
    Dim NextLine As Long
    Dim formCells As Variant
    Dim targetCols As Variant
    Dim i As Integer
    
    ' 获取asset表中B列最后一行的下一行行号
    NextLine = Sheets("asset").Range("B" & Rows.Count).End(xlUp).Row + 1
    
    ' 表单输入单元格数组（和目标列顺序严格对应）
    formCells = Array("E5", "E6", "E7", "E8", "E9", "E10", "E12", "E13", "E15", "E16", "E17", "E18", "E19", "E20", "E21", "E22")
    ' 目标列数组，与表单单元格一一对应
    targetCols = Array("B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q")
    
    ' 循环遍历完成赋值
    For i = LBound(formCells) To UBound(formCells)
        Sheets("asset").Range(targetCols(i) & NextLine).Value = Sheets("Sheet3").Range(formCells(i)).Value
    Next i
End Sub

代码说明： #

1. 规范变量声明：明确声明所有变量，建议在模块开头加上Option Explicit强制变量声明，能避免很多拼写类错误
2. 数组对应逻辑：把表单输入单元格和目标列做成顺序严格对应的两个数组，循环时通过索引直接匹配赋值，逻辑清晰易懂
3. 明确工作表引用：用Sheets("表名")指定工作表，避免默认工作表切换带来的潜在问题
4. 自适应循环范围：用LBound和UBound获取数组的起始/结束索引，后续如果调整表单单元格数量，循环会自动适配

如果追求更高效率，还可以批量写入单元格值，但上面的循环写法已经足够简洁易读，非常方便后续维护。

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