[[20150831111228]]　『VBA 特定ワードを検索し行を削除』（kouta）　ページの最後に飛ぶ

『VBA 特定ワードを検索し行を削除』（kouta）

マクロ作成中ですが解らない為教えてください。

下記データがある場合、ワードに(T)が入っているものだけを検索し行を黒く塗りつぶしたいのですが、データが不規則なので最終列を特定することが困難です

AIU01B(T)
AIU01B

	KAKCC				
	KAKCC	6TF01C			
	KAKCA	6TF01B			SASCB(T)
	KAKCA				
	KAKCA	6TF01C			
SASCB(T)					
SASCC(T)					
SASCA(T)

宜しくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 一例です

 Sub Test()
    Dim c As Range
    Dim f As Range
    Dim r As Range

    Set r = ActiveSheet.UsedRange
    r.Interior.ColorIndex = xlNone

    Set c = r.Find(What:="(T)", LookAt:=xlPart)
    If c Is Nothing Then Exit Sub
    Set f = c
    Do
        Intersect(r, c.EntireRow).Interior.Color = vbBlack
        Set c = r.FindNext(c)
    Loop While c.Address <> f.Address

 End Sub

（β） 2015/08/31(月) 11:29

出来ました、ありがとうございました。
（kouta） 2015/08/31(月) 13:05

コメント返信：

[ 一覧(最新更新順) ]

[[20150831111228]] 『VBA 特定ワードを検索し行を削除』（kouta） ページの最後に飛ぶ

[[20150831111228]]　『VBA 特定ワードを検索し行を削除』（kouta）　ページの最後に飛ぶ