| |
▼ペーロケ さん：
>お礼遅くなりました！（書込みできるようになりましたので・・・）
>みなさんありがとうございます。
>
>色々と参考にしながら、
>みなさんのを参考にしながら、
>
>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列の並びは一かたまりになってはいますが
>並びは不規則の場合です・・・
>
>お願いします！
おはようございます。
1行づつ処理する方法でヤるんですね。
If .Cells(i, 1) = .Cells(1, 1) Then
の部分を
If .Cells(i, 1) = .Cells(1, 1) And _
.Cells(i, 2) = .Cells(1, 2) Then
にすれば良いと思います。
他の方が書いてくれているマクロのほうが、
高速に処理できますので勉強してどうでしょうか？
|
|
ハチ
- 06/4/25(火) 9:10 -
