投稿日	： 2002/09/20(Fri) 11:10
投稿者	： A221
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: Excel操作

だいぶ読みにくいかと思いますが、エクセルのマクロでとりあえず動作しました。
＃動作するだけです。セル全部見に行くので遅いかも。

こんなかんじです。

Sub Loading()
Dim ACount As Long
Dim CCount As Long
Dim ACcount As Long

Dim i As Long

Dim Flag As Boolean

With Worksheets(1)
    'A列単独の件数を取得
    ACount = 0
    Do
        ACount = ACount + 1
    Loop Until .Cells(ACount, 1).Value = Empty
    ACount = ACount - 1
    
    CCount = 1
    ACcount = 0
    Do Until .Cells(CCount, 3).Value = Empty
        'C列とA列を比較してA列にあればフラグを落としループを出る
        For i = ACount To 1 Step -1
            If .Cells(i, 1).Value <> .Cells(CCount, 3).Value Then
                Flag = True
            Else
                Flag = False
                Exit For
            End If
        Next i
        'フラグが立っていればコピーの処理を行う
        If Flag Then
            ACcount = ACcount + 1
            .Cells(ACount + ACcount, 1).Value = .Cells(CCount, 3).Value
            Flag = False
        End If
        CCount = CCount + 1
    Loop
End With
End Sub

★ - Excel操作 - 半人前 09/19-15:20No.683
• Re: Excel操作 - A221 09/20-11:10 No.693