済みません、どなたか教えて下さい。
001 100 200 300 400
001 111 222 100 201 301 444
001 111 222 100 202 300 400
001 111 222 100 203 301 400
001 111 222 100 204 300 440
002 100 200 300 400
002 111 222 100 201 301 400
002 111 222 100 202 300 404
002 111 222 100 203 300 400
002 111 222 100 204 301 444
Excelで上記のような表があるとします(行列番号は省略しています)。
2列目に注目していただきたいのですが、データが111の場合のみ、右隣のセルに222という値があります。
この111と222の入ったセルのみを削除(左方向にシフト)したいのですが(この場合B2:C5とB7:C10)、
データが多い為手動では非常に時間がかかります。
そこでこれをマクロ化したいと考えているのですが、どのようにすればよいのか方法(考え方)がわかりません。
VBAは初心者ですが、かなり難しいでしょうか。
ちなみに、データのレコード数は決まっておりません。
上記の例で言う111、222の入る列番号は決まっております。
よろしければどなたかご指導下さい。宜しくお願いいたします。
No.2ベストアンサー
- 回答日時:
こんばんは。
最初の質問と、#1の補足で付けた内容とは、少し違いますね。
ユーザー設定オプションを設けました。そして、最後は、目で確認してから削除してください。
なお、設定の中の「オフセット列数」というのは、検索対象列に対して、セル左ひとつなら、-1、検索対象列自体なら、0、セル右にひとつなら、1 と入れます。
'----------------------------------------------------
'なるべく、標準モジュールに登録してください。
'---------------------------------------------------
Sub TestMatchDelete()
Dim dlRng As Range
Dim i As Long
Const OCOL As Integer = 3 '検索対象列
Const OFSTCOL As Integer = -1 'オフセット列数
Const DELCOL As Integer = 4 '削除する列数
'ユーザー設定
With ActiveSheet
For i = 1 To .Range("B65536").End(xlUp).Row
If .Cells(i, OCOL).Value = 111 Then
If dlRng Is Nothing Then
Set dlRng = .Cells(i, OCOL).Offset(, OFSTCOL).Resize(, DELCOL)
Else
Set dlRng = Union(dlRng, .Cells(i, OCOL).Offset(, _
OFSTCOL).Resize(, DELCOL))
End If
End If
Next i
If Not dlRng Is Nothing Then
dlRng.Select
If MsgBox("この範囲を削除します。よろしいですか?", vbQuestion + vbOKCancel) = vbOK Then
dlRng.Delete xlShiftToLeft
End If
Else
MsgBox "検索対象列に該当するものがありません。", 48
End If
.Range("B1").Activate
End With
Set dlRng = Nothing
End Sub
ありがとうございます。
凄いです。完璧です。しかも初心者用にユーザー設定オプションを設けていただき、
更に確認メッセージまで入れていただいて…。
これで作業が大変楽になります。
私もVBAをもっと勉強しなくては…。
本当に感激です。ありがとうございました。
No.1
- 回答日時:
B列が111、C列が222の行をB列、C列のセルを削除し左にシフトするマクロです。
マクロをALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はワークシート画面に戻ってALT+F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。
Sub Macro4()
Dim idx As Long
For idx = 1 To Range("B65536").End(xlUp).Row
If Cells(idx, "B") = 111 And Cells(idx, "C") = 222 Then
Cells(idx, "B").Resize(1, 2).Delete Shift:=xlShiftToLeft
End If
Next idx
End Sub
念のため申し添えますが、セルの値が数値(右詰)ではなく文字列(左詰)ならば "111"、"222"のようにダブルコーテーションで囲む必要があります
If Cells(idx, "B") = "111" And Cells(idx, "C") = "222" Then
この回答への補足
申し訳ございません!せっかくこんなに素晴らしい回答を頂いたのですが、
私の説明不足でこのままでは使用できませんでした。
もう一度サンプルを挙げさせていただきます。
001 東 001 002 AAA
003 東 111 222 BBB 北 001 002 AAA
005 東 111 333 CCC 北 001 002 AAA
004 東 111 444 DDD 北 001 002 AAA
008 西 001 002 AAA
009 西 111 666 BBB 南 001 002 AAA
006 西 111 777 DDD 南 001 002 AAA
007 西 111 888 CCC 南 001 002 AAA
上記の例で、3列目をキーにして、111という値があった場合に、該当するレコードの2列目から5列目までを
左シフトで削除したい、ということなのです。
つまり、該当レコードであってもキーになる列以外の値は必ずしも同じではないということです。
結果はこうなります。
001 東 001 002 AAA
003 北 001 002 AAA
005 北 001 002 AAA
004 北 001 002 AAA
008 西 001 002 AAA
009 南 001 002 AAA
006 南 001 002 AAA
007 南 001 002 AAA
初めからきちんとした説明をしておけば良かったのですが、本当に済みませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Visual Basic(VBA) エクセルVBA 4 2022/05/14 00:51
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
マクロ 特定のセル値のみクリアする
Visual Basic(VBA)
-
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
vbaでシートより100より大きい値を削除するコードを教えてください
Visual Basic(VBA)
-
-
4
VBAで特定の条件のセルのみクリアにする
Excel(エクセル)
-
5
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
6
VBAで指定範囲内の空白セルを左詰めで一括削除したいのですが
Visual Basic(VBA)
-
7
Excel VBA 特定の条件の時に指定されたセルのクリア
Excel(エクセル)
-
8
連続データが入った行の一番右端の右側の空白セル
Excel(エクセル)
-
9
ある条件を満たすセルに対応する行のセル内容をコピーして・・
Visual Basic(VBA)
-
10
マクロ 最終列をコピーして最終列の次の列に挿入する
Visual Basic(VBA)
-
11
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
12
マクロ オートフィルタの検索値を所定のセルから参照
Excel(エクセル)
-
13
マクロで空白セルを詰めて別シートに転記
Visual Basic(VBA)
-
14
【VBA】条件に一致しない行を削除したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「B列が日曜の場合」C列に/...
-
PowerPointで表の1つの列だけ...
-
お店に入るために行列に並んで...
-
エクセルで二つの数字の小さい...
-
エクセル(勝手に太字になる)
-
EXCELで 一桁の数値を二桁に
-
エクセルで最初のスペースまで...
-
エクセルで文字が混じった数字...
-
エクセルVBA、別ブックへ転記す...
-
エクセルの項目軸を左寄せにしたい
-
Excelで、A列にある文字がB列...
-
Excel 複数列 A列B列C列一致 D...
-
エクセル:ある時間範囲で在席...
-
エクセルで2列のセルを連続して...
-
ある文字を含む際に、値を返す...
-
50人を数回、グループ分けする...
-
2つのエクセルのデータを同じよ...
-
エクセルで特定の行を削除した...
-
エクセルで勝手に式が設定され...
-
Excelで文字+数字のデータの並...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
2つのエクセルのデータを同じよ...
-
エクセルで最初のスペースまで...
-
エクセルVBA、別ブックへ転記す...
-
エクセル 文字数 多い順 並...
-
エクセル(勝手に太字になる)
-
VBAで文字列を数値に変換したい
-
エクセルで文字が混じった数字...
-
エクセルの表から正の数、負の...
-
「B列が日曜の場合」C列に/...
-
Excelで半角の文字を含むセルを...
-
エクセルの並び変えで、空白セ...
-
Excel、市から登録している住所...
-
エクセル 同じ値を探して隣の...
-
EXCELで 一桁の数値を二桁に
-
エクセル初心者です 関数の入れ...
-
A列がない・・・A列が非表示に...
-
オートフィルターをかけ、#N/A...
-
エクセルで、列の空欄に隣の列...
おすすめ情報