エクセルVBA Columnプロパティで・・・

質問

エクセル２００２使用です。

FindメソッドでRangeオブジェクトを取得し、Columnプロパティでそのオブジェクトの列番号をを取得し、Columnsプロパティーでその列番号が最後になる複数行を取得して、その取得した範囲の空白セルを削除しようとしています。

Dim findcell as Range
Dim cl as String

Set findcell = Rows(1).Find(What:="賞")
cl = findcell.Column
Columns(3:cl).SpecialCell(xlCellTypeBlanks).Delete

Columns(3:cl)でエラーとなってしまいます。
Columnsプロパティーで複数行を取得するときは、アルファベットの列番号を指定しなければならないと思うのですが、Columnプロパティーでは、数字で列番号を取得してしまうため困っています。

Columnプロパティーでアルファベットを取得する方法
または
Columnsプロパティーで複数行を数字の列番号で取得する方法で何か良い方法はありますでしょうか？

よろしくお願いします。

回答No.1

papayuka · ベストアンサー

こんな感じだとどうでしょう？

Sub test()
Dim findcell As Range
Dim cl As Integer
Set findcell = Rows(1).Find(What:="賞")
cl = findcell.Column
With ActiveSheet
　　.Range(.Cells(1, 3), .Cells(65536, cl)). _
　　SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End With
End Sub

あと、意味が違うかも知れませんが、、

'シートの使用範囲で空白を左詰め
Sub Test1()
　ActiveSheet.UsedRange. _
　　SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub

'1行目だけ空白を左詰め
Sub Test2()
　With ActiveSheet.UsedRange
　　.Resize(1, .Columns.Count). _
　　SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
　End With
End Sub

お礼

papayuka様、早速のお返事ありがとうございました。
万事うまくいきました。その上、その他のアドバイスまでいただき本当にありがとうございます。
大変助かりました。
以前にも関数が入った空白セルの取得でお世話になり本当に助かりました。
経験が浅くなかなか初歩的なところが解決できず申し訳ございません。がんばって勉強します。

今後ともよろしくお願いいたします。

回答No.2

popesyu

シンプルにやるならループさせるとか。
Set findcell = Rows(1).Find(What:="賞")
cl = findcell.Column

for i=cl to 3 step - 1
　Columns(i).delete
next i

お礼

popesyu 様、いつも早速のお返事ありがとうございます。本当に助かっています。

今回の空白セルは、列のすべてを削除することはできず、列から検索した特定の行の空白セルのみの削除でした。

本当にいつもありがとうございます。なんとか、初めての製作物もなんとかゴールが見えてきました。

今後ともよろしくお願い申し上げます。