|
▼Jaka さん:
ご回答ありがとうございます。
Dim Deg空白 As Range
On Error Resume Next
Set Deg空白 = Range(Cells(i, "A"), Cells(i + x - 1, "B")).SpecialCells(xlCellTypeBlanks)
Deg空白.Value = "(空白)"
この1番下で空白をに"(空白)"を入れていますが、マクロを実行した後に
エラーじゃなかったところに"(空白)"が入っていました。。。
なのでエラーじゃない時も無視をされた訳ではないように思えました。
複数シートをチェックしましたがみなそうなっていました。
でももしこのままで危険な状態ならば
上の3行にIf Deg空白 nothing then
を入れる場合の場所と、そのIfに対してのEndの書き方を教えていただけますでしょうか。
よろしくお願いいたします。
>SpecialCellsは、該当するセルが無いと実行エラーになります。
>それをスキップするために on error resume next を使ったとします。
>
>Dim aaa as range
>set aaa = SpecialCellsのコード
>をエラートラップすると、aaaには何もセットされていません。
>つまり、nothing
>
>何もセットされていなかった場合の処理は????
>知らずに何も無い変数を使ったりするとここでもエラーになります。
|
|