|
こんにちは^^
横から失礼します。
>>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さん回答ありがとうございます。早速試してみたのですが、何も変わりませんでした。数字が文字列になっているからでしょうか?
>よろしくお願いします。
こちらで試したところ、ちゃんと10桁以下のデータが入ってる行が削除されました。
「数字が入っている」ということですが、もしかして、数字以外の文字が混在していて、数字だけ見て10桁以下・・・とか言う意味ではないですか?
それなら、
Len(Cells(i, 3).Text)
は、そのセルに入っているデータ(数字だろうが、文字だろうが)の文字数を求めているので、そのへんで不具合が出ていると思います。
見当違いのこと言うてたらすみません。
|
|