|
何度もすいません。
皆さんの知恵をお借りしたく質問します。
A列、C列にいくつかの数字が並べており、
A列の中にあるC列と同じ数字を削除していく形です。
だが、A列の途中(例えば3行目)が空白だと
作業がストップしてしまいます。
本当は5行まで調査して欲しいが、3行の空白に止まったままで
動かなくなってしまいます。
なにかのコードが間違っていると思うので、どなたか教えてください。
よろしくお願いします。
Private Sub CommandButton1_Click()
Const KEY = ""
ActiveSheet.Range("A3").Activate
Do Until ActiveCell.Row = 5
Dim tate As Integer
tate = ActiveCell.Row + 1
Dim yoko As Integer
yoko = ActiveCell.Column
Dim TG As Range
For Each TG In Range("C:C")
If TG.Value = ActiveCell Then TG.ClearContents
Next
ThisWorkbook.ActiveSheet.Cells(tate, yoko).Select
Loop
Range("A3").Select
End Sub
|
|