Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


50665 / 76732 ←次へ | 前へ→

【30952】Re:範囲指定etc
回答  HiroHiro  - 05/11/7(月) 21:32 -

引用なし
パスワード
   ▼お世話になります さん:
意味を取り違えていればお許しください。
小生の理解は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列)が○であった場合その行は消さずに
>イベント列の値のみを残し空白にしたいと考えています。
>
>このような場合の範囲指定・削除動作をするにはどうしたらよろしいでしょうか。
>検討もつかない為、コード作成依頼となってしまうと思いますが
>何卒、よろしくお願い申し上げます。

0 hits

【30944】範囲指定etc お世話になります 05/11/7(月) 17:09 質問
【30948】Re:範囲指定etc ちくたく 05/11/7(月) 18:23 回答
【30952】Re:範囲指定etc HiroHiro 05/11/7(月) 21:32 回答
【30962】Re:範囲指定etc お世話になります 05/11/8(火) 9:22 質問
【30965】Re:範囲指定etc こたつねこ 05/11/8(火) 11:03 回答
【30968】Re:範囲指定etc お世話になります 05/11/8(火) 14:09 お礼

50665 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free