| |
こんにちは＾＾
横から失礼します。
>>Sub test()
>>桁 = 10
>>Application.ScreenUpdating = False
>>For i = Range("C65536").End(xlUp).Row To 1 Step -1
>> If Len(Cells(i, 3).Text) < 桁 + 1 Then Rows(i).Delete
>>Next
>>End Sub
>>
>>これで試してみてください
>おはようございます。kobasanさん回答ありがとうございます。早速試してみたのですが、何も変わりませんでした。数字が文字列になっているからでしょうか？
>よろしくお願いします。
こちらで試したところ、ちゃんと１０桁以下のデータが入ってる行が削除されました。
「数字が入っている」ということですが、もしかして、数字以外の文字が混在していて、数字だけ見て１０桁以下・・・とか言う意味ではないですか？
それなら、
Len(Cells(i, 3).Text)
は、そのセルに入っているデータ（数字だろうが、文字だろうが）の文字数を求めているので、そのへんで不具合が出ていると思います。
見当違いのこと言うてたらすみません。
|
|
つん
- 05/5/11(水) 10:37 -
