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