Excel VBA表单提交：数据与公式分行问题修复求助

我一眼就看出问题出在代码执行顺序上：你现在是先把表单数据写到了当前最后一行的下一行，之后又在第4行插入了新行并写入公式——这就把原来存数据的行给挤到下面去了，公式在新的第4行，数据在它下面一行，自然就分成两行啦。

咱们调整一下逻辑顺序，应该先插入新行，再把数据和公式都写到这个新行里，这样就能保证它们在同一行了。另外我还帮你整理了代码，去掉了冗余的Select和ActiveCell操作（VBA里尽量别用这些，不仅慢还容易出问题），用With语句简化了工作表引用，看起来更清爽：

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 先在第4行插入新行
    ws.Rows(4).Insert Shift:=xlDown
    
    ' 给新插入的第4行设置边框
    ws.Range("A4:V4").Borders.Weight = xlThin
    
    ' 写入表单数据到第4行的对应列
    ws.Cells(4, 1).Value = TextBox1.Text
    ws.Cells(4, 3).Value = TextBox9.Text
    ws.Cells(4, 8).Value = TextBox12.Text
    ws.Cells(4, 10).Value = TextBox11.Text
    ws.Cells(4, 11).Value = TextBox10.Text
    ws.Cells(4, 16).Value = TextBox15.Text
    ws.Cells(4, 18).Value = TextBox14.Text
    ws.Cells(4, 19).Value = TextBox13.Text
    
    ' 写入公式到第4行的对应列
    ws.Cells(4, 2).Formula = "=(A4*1440)"
    ws.Cells(4, 4).Formula = "=(B4*(C4/100))"
    ws.Cells(4, 5).Formula = "=((D4/B4)*100)"
    ws.Cells(4, 6).Formula = "=(100-E4)"
    ws.Cells(4, 9).Formula = "=(H4*1440)"
    ws.Cells(4, 12).Formula = "=(I4*(((J4+K4)/2)/100))"
    ws.Cells(4, 13).Formula = "=((L4/I4)*100)"
    ws.Cells(4, 14).Formula = "=(100-M4)"
    ws.Cells(4, 17).Formula = "=(P4*1440)"
    ws.Cells(4, 20).Formula = "=(Q4*(((R4+S4)/2)/100))"
    ws.Cells(4, 21).Formula = "=((T4/Q4)*100)"
    ws.Cells(4, 22).Formula = "=(100-U4)"
End Sub

关键修改点说明： #

• 调整执行顺序：先插入新行，再写入数据和公式，确保所有内容都落在同一行
• 移除Select操作：直接通过ws.Cells或ws.Range操作单元格，避免因选中单元格导致的意外问题
• 简化工作表引用：用变量ws指代目标工作表，代码更简洁，也方便后续修改
• 统一操作对象：所有数据和公式都针对新插入的第4行，彻底解决行错位问题

这样修改后，点击提交按钮时，表单数据和计算公式就会乖乖待在同一行里啦！

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