僅當單元格爲空時，將單元格內容從一列複製到另一列

Question

我試圖將列H中的內容複製到C列，僅當列H中的單元格爲空時。

如果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 

Answer 2

Option Explicit 
Dim i As Long 
Dim n As Long 
Sub Copy() 

n = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row 

For i = 1 To n 
    If Cells(i, 8).Value <> vbNullString Then 
     Cells(i, 3).Value = Cells(i, 1).Value 
    End If 
Next i 

End Sub