Excel VBA質問箱 IV

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

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


56688 / 76732 ←次へ | 前へ→

【24790】Re:検索して削除
回答  kobasan  - 05/5/10(火) 19:39 -

引用なし
パスワード
   ▼金造 さん:今晩は。

>エクセルファイルのC列に数字がランダム入っていて、そのC列の中で10桁以下の数字の入っている行を削除

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

これで試してみてください

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 回答

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