VBA宏开发：按B列数据范围为AS列插入指定Formula2公式

高效版代码（适配大数据量） #

通过公式判断避免空行生成无效内容，执行效率更高：

Sub ProcessExportData()
    Dim wsExport As Worksheet
    Dim wsAcumatica As Worksheet
    Dim myLastRow As Long
    
    ' 绑定目标工作表，避免重复硬编码
    Set wsExport = ThisWorkbook.Worksheets("export-data")
    Set wsAcumatica = ThisWorkbook.Worksheets("Acumatica")
    
    ' 获取B列最后一行有数据的行号
    myLastRow = wsExport.Cells(wsExport.Rows.Count, "B").End(xlUp).Row
    
    ' 仅在B列数据范围内插入带判断的公式
    wsExport.Range("AS1:AS" & myLastRow).Formula2 = "=IF(B1<>"""", B1&""-""&C1, """")"
    
    ' 将AS列静态值复制到Acumatica的G列
    wsExport.Range("AS1:AS" & myLastRow).Copy
    wsAcumatica.Range("G1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False ' 清除剪贴板状态
End Sub

代码关键说明 #

• 工作表绑定：用变量替代重复的工作表名称，避免活动表切换导致的逻辑错误。
• 最后行获取：指定wsExport工作表的B列，确保取到的是目标表的有效数据行，而非当前活动表。
• 公式判断：通过IF(B1<>"", ..., "")确保只有B列有内容时才生成B-C格式的字符串，空行自动返回空值，不会出现单独的-。
• 值粘贴：使用xlPasteValues粘贴，保证Acumatica工作表的G列是静态文本，不会因原表数据变化而改变。

备选循环版代码（小数据量适配） #

逻辑更直观，仅给B列非空行单独插入公式：

Sub ProcessExportDataLoop()
    Dim wsExport As Worksheet
    Dim wsAcumatica As Worksheet
    Dim myLastRow As Long
    Dim i As Long
    
    Set wsExport = ThisWorkbook.Worksheets("export-data")
    Set wsAcumatica = ThisWorkbook.Worksheets("Acumatica")
    
    myLastRow = wsExport.Cells(wsExport.Rows.Count, "B").End(xlUp).Row
    
    ' 遍历每行，仅B列非空时插入公式
    For i = 1 To myLastRow
        If wsExport.Cells(i, "B").Value <> "" Then
            wsExport.Cells(i, "AS").Formula2 = "=B" & i & "&""-""&C" & i
        End If
    Next i
    
    ' 复制数据到目标表
    wsExport.Range("AS1:AS" & myLastRow).Copy
    wsAcumatica.Range("G1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

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