|
▼kanabun さん:
ご回答ありがとうございます。感謝致します。
> Rows(p).Delete
>のほうが分りやすくないですか?(^^
なるほどありがとうございます!
非常に助かりました。コメントは大事ですね。ありがとうございました。
>▼shingo さん:
>>こんにちは。以前私が書いたコードなのですが、コメントを残しておくのを忘れまして、何をしているのかわかりません。普段はVBAは書きません。JavaScriptばっかり書いてます。
>>
>> lRow = Cells(Rows.Count, 1).End(xlUp).Row
>> For p = lRow To 2 Step -1
>> If VarType(Cells(p, 1)) = vbEmpty Or Cells(p, 1).Value = "なし" Then
>> Range(p & ":" & p).Delete
>> End If
>> Next p
>>
>> なんとなく「なし」とあるセルを行ごと削除しているとは思うのですが、
>> それであってるでしょうか。
>それでいいと思います。
>A列の最終セルから、上に、空白セルか、またはセルの値が「なし」ならば
>その行を削除しているんですね。
>
>> Range(p & ":" & p).Delete
>は
> Rows(p).Delete
>のほうが分りやすくないですか?(^^
|
|