|
▼Kein さん:
おはよう御座います。
早朝から素晴らしいコードを拝見させていただき喜んでおります。
Intersectの使い方の勉強になりました。
少しお聞きしたいのですが・・・
Statisさんのコードを実行しましたが、
r.Offset(, -4).Resize(, 12).ClearContents
の行でトラぶっている事が分かりました。Resize(,12).を外すとB列が正しく
削除されます。
Resizeの使い方は合っていると思うのですが、如何でしょう。
Sub Test()
Dim r As Range, Ch As Boolean
Ch = True
On Error GoTo ErrLen
Set r = Range("F10:F40").SpecialCells(xlCellTypeFormulas, 16)
Ch = False
r.Offset(, -4).Resize(, 12).ClearContents
ErrLen:
If Ch Then
MsgBox "Errはありません。", vbInformation
End If
Set r = Nothing
End Sub
|
|