Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


56670 / 76732 ←次へ | 前へ→

【24810】Re:検索して削除
質問  金造  - 05/5/11(水) 10:30 -

引用なし
パスワード
   >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さん回答ありがとうございます。早速試してみたのですが、何も変わりませんでした。数字が文字列になっているからでしょうか?
よろしくお願いします。

0 hits

【24788】検索して削除 金造 05/5/10(火) 17:36 質問
【24790】Re:検索して削除 kobasan 05/5/10(火) 19:39 回答
【24810】Re:検索して削除 金造 05/5/11(水) 10:30 質問
【24813】Re:検索して削除 つん 05/5/11(水) 10:37 発言
【24825】Re:検索して削除 Jaka 05/5/11(水) 12:50 発言
【24826】Re:検索して削除 金造 05/5/11(水) 13:53 お礼
【24832】Re:検索して削除 Jaka 05/5/11(水) 14:52 回答

56670 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free