投稿日 | : 2002/09/20(Fri) 11:10 |
投稿者 | : A221 |
Eメール | : |
URL | : |
タイトル | : 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