问题理解 #

我完全懂你的困扰：你的Export工作表公式会返回空字符串""（又不能直接用Excel里不存在的BLANK()函数），但外部工具不认这些空字符串，要求必须是真正的空白单元格。而且你没法修改原公式，只能通过VBA导出环节来解决这个问题。

解决方案：基于原代码的最小改动，粘贴后转换空字符串 #

我们可以在原导出流程里加一步：完成值粘贴后，把目标工作表里的空字符串批量转换成真正的空白单元格。既不改动原工作簿的公式，又能满足外部工具的要求。

下面是修改后的完整代码，关键改动我做了标注：

Private Sub CommandButton1_Click()
    Dim wbkS As Workbook
    Dim wbkT As Workbook
    Dim wshS As Worksheet
    Dim wshT As Worksheet
    Dim varN As Variant
    Dim strA As String
    
    Application.ScreenUpdating = False
    
    Set wbkS = ActiveWorkbook
    Set wbkT = Workbooks.Add(xlWBATWorksheet)
    wbkT.Worksheets(1).Name = "Something Improbable"
    
    For Each varN In Array("Export")
        Set wshS = wbkS.Worksheets(varN)
        Set wshT = wbkT.Worksheets.Add(After:=wbkT.Worksheets(wbkT.Worksheets.Count))
        wshT.Name = varN
        
        strA = wshS.UsedRange.Cells(1, 1).Address
        wshS.UsedRange.Copy
        wshT.Range(strA).PasteSpecial Paste:=xlPasteValues
        
        ' -------------------------- 新增：转换空字符串为真正空白 --------------------------
        Dim targetArea As Range
        ' 定位到你需要处理的指定范围：A3:B102
        Set targetArea = wshT.Range("A3:B102")
        ' 把空字符串替换为真正的空白（vbNullString对应Excel的空白单元格）
        On Error Resume Next ' 防止范围里没有空字符串时报错
        targetArea.Replace What:="", Replacement:=vbNullString, LookAt:=xlWhole
        On Error GoTo 0
        ' --------------------------------------------------------------------------
        
    Next varN
    
    Application.DisplayAlerts = False
    wbkT.Worksheets(1).Delete
    Application.DisplayAlerts = True
    
    Application.ScreenUpdating = True
End Sub

关键改动说明 #

1. 范围定位：精准锁定你需要处理的A3:B102区域，避免修改到不需要处理的表头或其他单元格。
2. 替换逻辑：用Replace方法把单元格里的空字符串""替换成vbNullString，这和手动删除单元格内容的效果完全一致，就是外部工具需要的“等效BLANK()”状态。
3. 错误处理：加了On Error Resume Next防止如果范围内没有空字符串时触发报错，让代码更健壮。

高效进阶：数组处理（适合大数据量） #

如果你的数据量较大，直接操作单元格会有点慢，用数组读写的方式效率会高很多。原理是把源数据读进内存数组，处理完空字符串再写入目标工作表：

Private Sub CommandButton1_Click()
    Dim wbkS As Workbook
    Dim wbkT As Workbook
    Dim wshS As Worksheet
    Dim wshT As Worksheet
    Dim varN As Variant
    Dim dataArr As Variant
    Dim i As Long, j As Long
    
    Application.ScreenUpdating = False
    
    Set wbkS = ActiveWorkbook
    Set wbkT = Workbooks.Add(xlWBATWorksheet)
    wbkT.Worksheets(1).Name = "Something Improbable"
    
    For Each varN In Array("Export")
        Set wshS = wbkS.Worksheets(varN)
        Set wshT = wbkT.Worksheets.Add(After:=wbkT.Worksheets(wbkT.Worksheets.Count))
        wshT.Name = varN
        
        ' 把源工作表的使用范围读入数组
        dataArr = wshS.UsedRange.Value
        
        ' 遍历数组，处理空字符串
        If IsArray(dataArr) Then
            For i = LBound(dataArr, 1) To UBound(dataArr, 1)
                For j = LBound(dataArr, 2) To UBound(dataArr, 2)
                    ' 只处理A3:B102对应的数组位置（行从3到102，列从1到2）
                    If i >= 3 And i <= 102 And j >= 1 And j <= 2 Then
                        If dataArr(i, j) = "" Then dataArr(i, j) = vbNullString
                    End If
                Next j
            Next i
        Else
            ' 处理只有单个单元格的极端情况
            If dataArr = "" Then dataArr = vbNullString
        End If
        
        ' 将处理后的数组写入目标工作表
        wshT.Range(wshS.UsedRange.Address).Value = dataArr
        
    Next varN
    
    Application.DisplayAlerts = False
    wbkT.Worksheets(1).Delete
    Application.DisplayAlerts = True
    
    Application.ScreenUpdating = True
End Sub

验证处理效果 #

修改完代码后，导出新工作簿后可以用Excel的ISBLANK()函数验证：比如在目标工作表的C3单元格输入=ISBLANK(A3)，如果返回TRUE，就说明该单元格已经是真正的空白，外部工具就能正常识别了。