Excel VBA代码用相邻（列）单元格替换空单元格

Question

我有一个Excel文件，其中一些列信息是空白的。 我想用空单元格后面两列的信息填充空白单元格。 例如：

E列是一个人的全名。 列F是它们的名字，列G是它们的姓氏。

因此，如果E为空白，我想将F和G的内容组合成E.

1 JOHN JONES  | JOHN  | JONES
2             | MARY  | FORD
3 FRED MURPHY | FRED  | MURPHY
4             | TONYA | FARMER

我希望代码用'MARY FORD'填充第2行中的空单元格，用'TONYA FARMER'填充第4行。

我正在使用Excel 2010并尝试了不同的组合，但似乎没有任何东西按照我想要的方式工作。

Answer 1

我想你需要第4栏

因为你需要一个公式或空白区域的东西 - 但是你有文字在那里你可以有一个或另一个

如果你有这样的话

1 JOHN JONES  | =IF(A2="",CONCATENATE(C2," ",D2),A2)   | JOHN  | JONES  |
2             | =IF(A3="",CONCATENATE(C3," ",D3),A3)   | MARY  | FORD   |
3 FRED MURPHY | =IF(A4="",CONCATENATE(C4," ",D4),A4)   | FRED  | MURPHY |
4             | =IF(A5="",CONCATENATE(C5," ",D5),A5)   | TONYA | FARMER |

你可以随时隐藏第一列吗？

这除非你想要一个函数作为一次运行宏来运行以填补空白？

抢

Answer 2

For Each rw In UsedRange.Rows
  If rw.Columns("E") = "" Then
    rw.Columns("E") = rw.Columns("F") & " " & rw.Columns("G")
  End If
Next rw