|
こんにちは。かみちゃん です。
>>「マクロの記録」で記録できますが、いかがですか?
>
>マクロの記録だと列の場所がD列だったりY列だったりと
>さまざまなので空白ではない列が削除される時がありまして
>あまり良くないんです。
あまり良くなくても、できますよね。
そのコードを修正すればいいわけですが、わからないならば、そのコードを提示
して、どこを直せばいいか聞くようにしてはいかがでしょうか?ということです。
ここは、質問掲示板ですから・・・
>>何わもって、空白の列と判断するのかがわかりません。
>>一部のセルか、列全体が空白なのかどちらなのでしょうか?
>
> 列全体です。
この部分は、いろいろあるかと思いますが、以下のような感じで判断できると思います。
Sub Sample()
Dim FR As Range
On Error Resume Next
Set FR = Columns("A").Cells.Find("*", , xlValues, xlPart)
On Error GoTo 0
If FR Is Nothing Then
MsgBox "空白の列です"
Else
MsgBox "空白の列ではありません"
End If
End Sub
|
|