小编Gar*_*y W的帖子

代码非常简单,我只是想在from_range中复制值并将它们粘贴到to_range中.但它只是没有成功......

Sub test14()
    Range("to_range") = Range("from_range")
End Sub

之前,

之后,不确定为什么to_range中的所有内容都消失了

期望,只想用from_range覆盖to_range

有人能解释一下这里发生了什么吗？谢谢.

如图所示，test1来电FillEmptyWith却给了我一个

编译错误：=预期

有人可以帮忙吗？

Sub FillEmptyWith(Range, val)
    For Each cell In Range
        If IsEmpty(cell) Then
            cell.Value = val
        End If
    Next cell
End Sub

Sub test1()
   FillEmptyWith ((Sheets("In Force Earnix").Range("S10:S20")),"N")
End Sub