|
こんばんは。
フォームではありませんが、
sheet1にデータがあるとして、
sheet2に抽出します。
Sub test()
Dim myRng As Range
Dim myRng2 As Range
Dim r As Range
With Worksheets("sheet1")
Set myRng = Range("A2", Range("A65536").End(xlUp))
For Each r In myRng
If r.Value <> r.Offset(1, 0).Value Then
With Worksheets("sheet2")
.Range("A1:C1").Value = Worksheets("sheet1").Range("A1:C1").Value
Set myRng2 = .Range("A65536").End(xlUp).Offset(1, 0)
myRng2 = r.Value
myRng2.Offset(0, 1) = r.Offset(0, 1).Value
myRng2.Offset(0, 2) = r.Offset(0, 2).Value
End With
End If
Next
End With
End Sub
|
|