|
久々にお世話になります。
FindNextですが、行ごとでの検索としては知っているのですが、
列(コラム)で使用すると「RangeクラスのFindNextプロパティを取得できません」とのエラーとなります。
これを解決するにはどのように書けばよいのかを教えていただきたいのです。
現在書いているのは以下です。
Dim cNo As Variant
With Worksheets(2).Range("A9:AZ9")
Set cNo = .Find("部門比", LookIn:=xlValues)
If Not cNo Is Nothing Then
firstAddress = cNo.Address
Do
cNo = cNo.Column
Columns(cNo).Delete shift:=xlToLeft
Set cNo = .FindNext(cNo)
Loop While Not cNo Is Nothing And cNo.Address <> firstAddress
End If
End With
させたい事:9行目のコラムA〜AZ間において“部門比”という言葉を検索し、この言葉があるコラムを全て削除。
宜しくお願い致します。
|
|