Excel宏需求：处理IFERROR生成的伪空白列并复制到指定区域

以下是满足需求的VBA宏代码，实现将源列数据复制到临时区域、清理公式生成的空字符串（假空白）、再将精简后的数据转移到目标位置的完整流程：

Sub CleanAndTransferData()
    Dim sourceRange As Range
    Dim tempSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 检查必要工作表是否存在
    If Not SheetExists("Sheet1") Or Not SheetExists("Sheet2") Or Not SheetExists("Sheet3") Then
        MsgBox "请确认Sheet1、Sheet2、Sheet3均存在于当前工作簿中！", vbExclamation
        Exit Sub
    End If
    
    ' 绑定工作表与源数据范围（固定范围C2:C8）
    Set sourceRange = ThisWorkbook.Sheets("Sheet1").Range("C2:C8")
    Set tempSheet = ThisWorkbook.Sheets("Sheet2")
    Set targetSheet = ThisWorkbook.Sheets("Sheet3")
    
    ' 1. 将源数据复制到临时工作表Sheet2的A列起始位置
    sourceRange.Copy tempSheet.Range("A1")
    
    ' 2. 清理临时表中的假空白（公式返回的空字符串）
    lastRow = tempSheet.Cells(tempSheet.Rows.Count, "A").End(xlUp).Row
    ' 从下往上循环删除，避免因行号变动遗漏数据
    For i = lastRow To 1 Step -1
        If tempSheet.Cells(i, "A").Value = "" Then
            tempSheet.Cells(i, "A").EntireRow.Delete
        End If
    Next i
    
    ' 3. 将清理后的有效数据复制到Sheet3的B列（从B2开始，与源数据起始行对应）
    lastRow = tempSheet.Cells(tempSheet.Rows.Count, "A").End(xlUp).Row
    If lastRow >= 1 Then
        tempSheet.Range("A1:A" & lastRow).Copy targetSheet.Range("B2")
    End If
    
    ' 清除临时表数据，避免残留影响下次运行
    tempSheet.Cells.Clear
End Sub

' 辅助函数：检查指定工作表是否存在
Function SheetExists(sheetName As String) As Boolean
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets(sheetName)
    On Error GoTo 0
    SheetExists = Not ws Is Nothing
End Function

代码说明 #

• 工作表存在检查：避免因缺失指定工作表导致宏运行报错，弹出提示后终止流程。
• 动态源范围适配：若需处理C列从C2到最后一行的动态数据，可替换源范围定义为：

  Dim sourceLastRow As Long
  sourceLastRow = ThisWorkbook.Sheets("Sheet1").Cells(ThisWorkbook.Sheets("Sheet1").Rows.Count, "C").End(xlUp).Row
  Set sourceRange = ThisWorkbook.Sheets("Sheet1").Range("C2:C" & sourceLastRow)
  

• 假空白清理逻辑：从最后一行往上循环删除空字符串行，防止删除行后后续行号偏移导致遗漏。
• 目标位置调整：若需将数据粘贴到Sheet3的B1起始行，只需将targetSheet.Range("B2")改为targetSheet.Range("B1")。

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