|
▼Hirofumi さん:
>▼初心者 さん:
>>更なる回答、有難うございました。
>>
>>もう1点確認です。
>>
>>1.「物件名」で特定の単語が合致するものはその行を削除
>>2.「受注金額」で0のものはその行を削除
>>
>>上記条件のどちらかを満たす行は削除するマクロを組みたいのですが、どのようにすればいいのでしょうか?
>>
>>自分なりに考えてみました。
>>
>> Dim lRow As Long
>> Dim i As Long
>> lRow = Cells(Rows.Count, 1).End(xlUp).Row
>> For i = lRow To 2 Step -1
>> If Cells(i, 8).Value = 0 Then
>> Range(i & ":" & i).Delete
>> End If
>> Next i
>>
>>これは2.の条件に合致する行を削除するために書いてみたのですが、動作は予想以上に遅かったです。
>>※全体で4000行近くあります。
>>
>>また、1.の条件も複数の単語に対応したいと思います。
>>物件名に「AAA」を含む行、「BBB」を含む行、受注額に「0」を含む行 など。
>>
>>よろしくお願いします。
>
>確認ですが?
>
>1、此れは、突き合わせのマクロと同時に行うのですか?
> それとも、別のマクロにして別に行うのですか?
>2、前月、当月両方とも行うのですか?
>3、「初心者さん - 10/1/13(水) 16:57 - 」のレスで
> 前月の表の矛盾(担当課名列の有る無し)はどうなっているのでしょうか?
詳細が伝えきれておらず申し訳ありません。
1.同時には実施せず、別で実施したいと考えています。
2.前月、当月共に実施したいと思います。
3.担当課名列は存在します。
何卒宜しくお願いします。
|
|