|
▼やっちん さん:
アドバイスをありがとうございます。
でも、申し訳ございません・・
悩んでいる間、下記のコードでやってみたら偶然できました。
私の中では解決したので、ありがとうございました。
Private Sub CommandButton1_Click()
Const KEY = ""
ActiveSheet.Range("A3").Activate
Do Until ActiveCell.Row = 12
Dim tate As Integer
tate = ActiveCell.Row + 1
Dim yoko As Integer
yoko = ActiveCell.Column
Dim TG As Range
For Each TG In Range(Range("C2"), Range("C65536").End(xlUp))
If TG.Value = ActiveCell Then TG.ClearContents
Next
ThisWorkbook.ActiveSheet.Cells(tate, yoko).Select
Loop
Range("A3").Select
End Sub
|
|