需要将索引公式切换到 VBA 以允许我返回真正的空白答案

【问题标题】：Need to switch over an index formula into VBA to allow me to return true blanks需要将索引公式切换到 VBA 以允许我返回真正的空白
【发布时间】：2021-11-01 06:45:55
【问题描述】：

我有一个从报告中获取数据的电子表格。有时可能包含 4 个数字，有时可能包含 50 个相关数字。

将XLookup 与所有潜在标签一起使用，并在导入的报告中返回数字。

目前使用这个公式来清除不相关的数字和标签的数据。

=IFERROR(INDEX(DATA!C:C,SMALL(IF(DATA!D:D<>0,ROW(DATA!D:D)),ROWS(DATA!$D$2:D3))),"")

但是，当我在 VB 中复制和粘贴时：

Sheets("CALC").Select
Range("W3:W9" & Range("W1").End(xlDown).Row).Select
Selection.Copy
Sheets("FORM (3)").Select
Range("B20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=True, Transpose:=False

我得到未填写的单元格，可能已经填写，作为空白但不是真正的空白。

【问题讨论】：

标签： excel vba

【解决方案1】：

后来添加了这个，看起来它为我做了一个快速修复。

Range("B20:L80").Select
For Each cell In Selection
If cell.Value = "" Then
cell.ClearContents
End If
Next

【讨论】：