|
↑
なんてもったいぶるほどたいしたコードではありませんが、
私も初心者で、ヘルプとマクロの記録を中心に考えています。
常連さんから教えていただいたコードを自分なりに解釈し、
応用できるようにがんばっていますので・・・indy さんが
どれだけ自分で考え、コードにしているか知りたかっただけです。
これでいけると思います。
Sub test2()
Dim myRng As Range
Dim myRng2 As Range
Dim r As Range
With Worksheets("sheet1")
Set myRng = .Range(.Range("M2"), .Range("M65536").End(xlUp))
For Each r In myRng
If r <> "" Then
If r.Value <> r.Offset(, 1).Value Then
With Worksheets("sheet2")
.Range("A1:B1").Value = Worksheets("sheet1") _
.Range("A1:B1").Value
.Range("C1:D1").Value = Worksheets("sheet1") _
.Range("M1:N1").Value
Set myRng2 = .Range("A65536").End(xlUp).Offset(1, 0)
With myRng2
.NumberFormatLocal = "@"
.Resize(1, 2).Value = r.Offset(0, -12) _
.Resize(1, 2).Value
.Offset(0, 2).Resize(1, 2).Value _
= r.Resize(1, 2).Value
End With
End With
End If
End If
Next
End With
End Sub
|
|