みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

太字の入ったセルを削除したい

office2000を使用しています。
エクセルで5列、数百行程度のデーターを持ったシートがかなりたくさんあります。
いくつかのセルには太字が記入されています。
マクロを利用し、この太字で記入されたセルだけを検出し、そのセルが含まれる行を削除することは出来るでしょうか。
よろしくご教示ください。

投稿日時 - 2008-12-02 09:30:23

QNo.4523390

すぐに回答ほしいです

質問者が選んだベストアンサー

Sub test01()
With ActiveSheet
For Each c In .UsedRange
If c.Font.Bold Then
c.EntireRow.Delete
End If
Next
End With
End Sub

ではいかがでしょうか?

投稿日時 - 2008-12-02 09:44:09

お礼

早々と回答いただきありがとうございます。こんなに早く回答がいただけるとは思ってもいませんでした。
ご教示いただいた内容で処理でき、ものすごく助かりました。ありがとうございます。

投稿日時 - 2008-12-02 10:33:36

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

#1のmerlionXXです。
先ほどの回答は、セル自体の書式に太字の設定があるという前提で、セルの書式で判断するコードを書いたのですが、そうではなくセル内の文字列単位で特定の文字に太字が設定されているということなら、各文字ごとに書式を調べなくてはいけなくなります。
もしそうなら以下のコードをお試しください。

Sub test02()
With ActiveSheet
For Each c In .UsedRange
If c.Value <> "" Then
For i = Len(c.Value) To 1 Step -1
If c.Characters(i, 1).Font.Bold Then
c.EntireRow.Delete
Exit For
End If
Next i
End If
Next c
End With
End Sub

投稿日時 - 2008-12-02 09:58:00

あなたにオススメの質問