VBA数据插入程序改造咨询：溢出错误、列调整及数据源修正

一、解决Overflow Error 6（溢出错误） #

• 问题根源：60万条记录的行数远超Integer类型最大值（32767），循环变量、行数存储变量用Integer会触发溢出。
• 改造步骤：
  1. 将所有涉及行数、循环计数的变量从Dim 变量名 As Integer改为Dim 变量名 As Long。
  2. 获取工作表总行数时，确保结果用Long类型存储，示例：

     Dim lastRow As Long
     lastRow = wsInput.Cells(wsInput.Rows.Count, "A").End(xlUp).Row
     

  3. 若使用数组存储数据，数组下标也需用Long类型定义。

二、修正从错误文件取值的问题 #

• 问题根源：未明确指定工作簿对象，误用了ActiveWorkbook或错误的工作簿引用。
• 改造步骤：
  1. 显式定义并引用input.xlsm和result.xlsm的工作簿、工作表对象，示例：

     Dim wbInput As Workbook, wbResult As Workbook
     Dim wsInput As Worksheet, wsResult As Worksheet
     Set wbInput = Workbooks.Open("你的input.xlsm完整路径")
     Set wsInput = wbInput.Sheets("你的数据工作表名")
     Set wbResult = Workbooks.Open("你的result.xlsm完整路径")
     Set wsResult = wbResult.Sheets("你的结果工作表名")
     

  2. 所有取数操作必须指定wsInput（即input.xlsm的工作表），禁止使用ActiveSheet或未明确的对象引用，示例：

     ' 正确：从input.xlsm取数
     Dim cellValue As Variant
     cellValue = wsInput.Cells(i, "A").Value
     ' 错误：可能指向result.xlsm
     ' cellValue = ActiveSheet.Cells(i, "A").Value
     

三、调整输出列从C列到D列 #

• 改造步骤：
  1. 找到所有写入result.xlsm的代码，将目标列标识从"C"或3（C列是第3列）改为"D"或4（D列是第4列），示例：

     ' 原代码（写入C列）
     ' wsResult.Cells(rowNum, "C").Value = cellValue
     ' 修改后（写入D列）
     wsResult.Cells(rowNum, "D").Value = cellValue
     

  2. 若用变量控制输出列，将变量值从3改为4，示例：

     ' Dim outputCol As Integer
     ' outputCol = 3
     Dim outputCol As Long ' 建议同步改为Long
     outputCol = 4
     wsResult.Cells(rowNum, outputCol).Value = cellValue
     

优化建议（处理60万条数据） #

• 关闭屏幕更新和事件提升运行速度：

  Application.ScreenUpdating = False
  Application.EnableEvents = False
  ' 核心代码
  Application.ScreenUpdating = True
  Application.EnableEvents = True
  

• 采用数组批量读写：一次性将input.xlsm的目标数据读入数组，再批量写入result.xlsm的D列，避免逐行读写的性能损耗，示例：

  Dim dataArr As Variant
  dataArr = wsInput.Range("A2:A" & lastRowInput).Value ' 读取input的A列数据
  wsResult.Range("D" & lastRowResult + 1 & ":D" & lastRowResult + UBound(dataArr)).Value = dataArr ' 批量写入D列
  

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