vba - 仅当单元格为空时，才将单元格内容从一列复制到另一列

Question

仅当 H 列中的单元格为空时，我才尝试将 H 列中的内容复制到 C 列。

如果 H 为空，我想保留 C 列中的文本。

这是我所拥有的，它复制了 H 的内容，但如果 H 为空，它也会清空 C 列。

Sub Button1_Click()
Dim lngRow As Long
Dim BotRow As Long

Cells(Rows.Count, "H").Select
Selection.End(xlUp).Select
    BotRow = Selection.Row
    For lngRow = 1 To BotRow
        If Not IsEmpty(Cells(lngRow, "H")) Then
            Cells(lngRow, "C") = Cells(lngRow, "H")
        End If

    Next
End Sub

Answer 1

vbNullString = "" ，所以这会将数据从 H 传输到 C，只有当有数据时:

Sub Button1_Click()
    Dim lngRow As Long
    Dim BotRow As Long

    BotRow = Cells(Rows.Count, "H").End(xlUp).Row
    For lngRow = 1 To BotRow
        If Cells(lngRow, "H") <> vbNullString Then
            Cells(lngRow, "C") = Cells(lngRow, "H")
        Else
        End If
    Next lngRow
End Sub