跳过非空单元格以粘贴特殊数据

Question

仅当范围（a3：M3）为空时，我想将工作表“SL”中的范围（a3：M3）中的数据复制到工作表“EL”中的范围（a3：m3） 。否则将所选数据复制到下一行（a4：m4）。

下面是我试图找出..但它不工作的代码... plz帮助

Range("C9:G10").Select 
Selection.Copy 
Sheets("EL").Select 

For n = 1 To n = 100 
    If Cells(n, 2).Value <> "" Then 
     Cells(n + 1, 2).Select 
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
      :=False, Transpose:=False 
    End If 
Next n 

Answer 1

有代码中的某个点，我不明白：

• 为什么它是指C9:G10？
• 为什么从n=1 to 100有一个循环？
• 语法For n = 1 To n = 100不起作用如你所料 - >与For n = 1 To 100更换）

这里是我的解决问题的方法：

Sub copyRange() 

    ' Look if destination cells are empty 

    Dim isempty As Boolean  
    isempty = True 

    For Each cell In Sheets("EL").Range("a3:m3").Cells 
     If cell.Value! = "" Then isempty = False 
    Next 

    ' Copy content from SL to EL into the correct line 
    Sheets("SL").Range("a3:m3").Select 
    Selection.Copy 
    If isempty Then 
     Sheets("EL").Range("a3:m3").PasteSpecial Paste:=xlPasteValues 
    Else 
     Sheets("EL").Range("a4:m4").PasteSpecial Paste:=xlPasteValues 
    End If 
End Sub