vba - 将非空白单元格从范围复制到范围

Question

我想知道你是否可以帮助我：

范围 B11:B251 和 C11:C251 可能有也可能没有一些值。我希望能够从单元格范围 M11:M251 和 N11:N251 复制非空白单元格到 B11:B251 和 C11:C251，所以如果 M&N 范围中有任何值，它们应该覆盖 B&C 中相同行中的值但是如果M&N 范围中有空白值，不应复制它们，并在 B&C 中保留已存在（或不存在）的值。我说清楚了吗？;-)

感谢您的回复！

Answer 1

这段代码应该可以解决问题：

Sub CopyRangeToRange()
    Dim CpyFrom As Range
    Dim Cell As Range

    Set CpyFrom = ActiveSheet.Range("M11:N251")

    For Each Cell In CpyFrom
        If Cell.Value <> vbNullString Then
            Cell.Offset(0, -11).Value = Cell.Value
        End If
    Next Cell
End Sub

Answer 2

Sub Main()
    Dim i As Long
    For i = 11 To 251
        If Not IsEmpty(Range("M" & i)) Then _
            Range("B" & i) = Range("M" & i)
        If Not IsEmpty(Range("N" & i)) Then _
            Range("C" & i) = Range("N" & i)
    Next i
End Sub

此代码只会将非空值从 M&N 列复制到 B&C