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 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 にコピーします

Answer 2

このコードはトリックを行う必要があります。

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