セルが空のときにのみ、セルの内容を1つの列から別の列にコピーする

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 = ""、これはデータが存在する場合にのみ、CにHからデータを転送します：

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