|
お礼遅くなりました!(書込みできるようになりましたので・・・)
みなさんありがとうございます。
色々と参考にしながら、
みなさんのを参考にしながら、
Sub Test()
Dim LstRow As Long
Dim i, i2 As Integer
LstRow = 105
With Worksheets(1)
For i = 2 To LastRow
If .Cells(i, 1) = .Cells(1, 1) Then
.Rows(i).Copy Destination:=Worksheets(2).Rows(i2)
i2 = i2 + 1
End If
Next i
End With
End Sub
というような感じで、まずは試してみました。
そこで、さらなる質問ですが、
a b c
1 5 50
2 4 10 20
3 4 30 40
4 5 50 60
5 5 50 80
6 3 90 100
7 6 110 120
同じような並びで、
今度は、A1かつB1セルと等しいものを
A列、B列から探すという、条件を増やした時は
どういう感じにすればよいのでしょうか?
加えて、A列の並びは一かたまりになってはいますが
並びは不規則の場合です・・・
お願いします!
|
|