如何用Access VBA读取无空行数据并插入至另一数据表

嘿，我之前在Access VBA里处理数据插入时也踩过这种多出空白行的坑，大概率是你的数据来源或者插入逻辑没过滤空值，给你几个实用的解决思路：

• 先排查临时表（表A）的原始数据
  直接打开表A看看B列是不是本来就存在空白行——有时候生成临时表或者导入数据时，很容易带进空记录。如果是这个原因，先清理临时表：

  ' 删除表A中B列为空或仅含空格的记录
  CurrentDb.Execute "DELETE * FROM 表A WHERE B列 IS NULL OR Trim(B列) = ''"
  

• 在循环插入时添加空值判断
  如果你是用循环读取表A记录再插入表B，一定要在插入前校验B列的有效性：

  Dim rs As Recordset
  Set rs = CurrentDb.OpenRecordset("SELECT B列 FROM 表A")
  
  Do While Not rs.EOF
      ' 只插入非空且非纯空格的记录
      If Not IsNull(rs("B列")) And Trim(rs("B列")) <> "" Then
          ' 注意：如果B列是数字类型，去掉单引号
          CurrentDb.Execute "INSERT INTO 表B (目标列) VALUES ('" & rs("B列") & "')"
      End If
      rs.MoveNext
  Loop
  
  rs.Close
  Set rs = Nothing
  

• 用SQL直接插入（更高效且减少失误）
  其实完全没必要用循环，一条带过滤的INSERT语句就能搞定，既高效又不容易出错：

  CurrentDb.Execute "INSERT INTO 表B (目标列) SELECT B列 FROM 表A WHERE B列 IS NOT NULL AND Trim(B列) <> ''"
  

  这条SQL会自动跳过表A中B列为空或仅含空格的记录，只把有效数据插入表B。

• 检查表B的字段默认值设置
  还有一种可能：表B的目标列设置了空字符串作为默认值，如果你的插入逻辑不小心触发了一次空插入（比如循环多执行了一次），就会生成空白行。可以去表B的设计视图里检查字段属性，把不需要的默认值去掉。

要是这些方法试过还是有问题，你可以贴出你的VBA代码片段，我再帮你揪细节～

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