| |
▼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
>のほうが分りやすくないですか？(^^
|
|
shingo
- 13/12/24(火) 19:30 -
