|
▼お世話になります さん:
意味を取り違えていればお許しください。
小生の理解はE列に文字があれば一列クリアさせ
G列に○があれば、一列削除と理解しました。
この理解の元で・・・原始的なコードかと思いますが
Sub クリアと削除()
Dim i As Integer
Dim rst1 As Integer
rst1 = Cells(65536, 6).End(xlUp).Row '6列(F列)目で検索しています
For i = rst1 To 2 Step -1
If Cells(i, 6).Offset(, -1) <> "" Then '5列(E列)目で文字があれば一列クリア
Rows(i).ClearContents
End If
Next
Dim j As Integer
Dim rst2 As Integer
rst2 = Cells(65536, 6).End(xlUp).Row
For j = rst2 To 2 Step -1
If Cells(j, 6).Offset(, 1) = "○" Then '7列(G列)目で「○」があれば一列削除
Rows(j).Delete
End If
Next
End Sub
>上記表のイベントAの確認○の行のみを削除したいのですが
>どのように範囲指定をしたらいいのか初心者なため検討もつきません。
>また、G3(E列に文字があった場合のG列)が○であった場合その行は消さずに
>イベント列の値のみを残し空白にしたいと考えています。
>
>このような場合の範囲指定・削除動作をするにはどうしたらよろしいでしょうか。
>検討もつかない為、コード作成依頼となってしまうと思いますが
>何卒、よろしくお願い申し上げます。
|
|