使用上面单元格中的值查找和替换空白值

时间:2015-01-04 00:38:52

标签: excel excel-vba vba

我在Excel中的1列中有大约500,000个数据单元格。数据如下:

F栏:

  

1528
  1660
  N / A
  1531
  1531
  N / A
  N / A

有什么方法可以用上面单元格中的值替换所有N / A'?

如果我一行一行,我需要一年时间。所以,如果你能够通过手动操作来节省我一年的生命,那么请提前感谢你。

1 个答案:

答案 0 :(得分:-1)

选项1 - 您可以在旁边的列中使用公式。

单元格G2中的公式是 = IF(F2 =" N / A",F1,F2) 将其复制并粘贴到所有列G单元格中。您会注意到公式在复制后会发生变化。

现在突出显示G列和COPY。

然后突出显示F列,右键单击一个选择并从弹出窗口中选择“粘贴特殊”,然后选择“仅值”和“确定”,这将复制G中计算的值与F中的值。

在你做之前保持备份!

选项2 - 您可以使用以下代码执行此操作:

Public Sub FixData()

Dim acell As Range

For Each acell In ActiveSheet.Columns("F").Cells
    If acell.Value = "N/A" And acell.Row <> 1 Then
        acell.Select
        acell.Value = acell.Offset(-1, 0).Value
    End If
Next acell

End Sub

好吗?