マクロ初心者です。
Excelにて、以下のような表データがあるとします。
A列 B列 C列 D列 E列 …
1行 51 50 52 51
2行 50 a b c d
3行 51 e f g h
4行 52 i j k l
この表の中で、A列と1行目の値が同じになる交点となるセルの値"以外"を
削除して以下のように表示させたいのですが、
その方法がわかりません。
A列 B列 C列 D列 E列 …
1行 51 50 52 51
2行 50 b
3行 51 e h
4行 52 k
単純な行削除・列削除ではないため、
頓挫しています。お知恵を拝借したく、よろしくおねがいします。
No.1ベストアンサー
- 回答日時:
For i = 2 To 4
For j = 2 To 5
If Cells(i, 1).Value <> Cells(1, j).Value Then
Cells(i, j).Value = ""
End If
Next
Next
i が縦(2~4)、j が横(B~E)ですね。
3行目にて値が違うことを確認し、4行目にて空にしています。
さっそくでありがとうございました。
行と列でそれぞれ変数を設定するところまでは考えついたのですが、
セル番地として扱うというところに思い至らず…
とても勉強になりました。これで業務が効率化できます。
ありがとうございました。
No.2
- 回答日時:
こんにちは、参考に
Sub Test()
Dim c As Range
For Each c In Range("B2:E4")
If Cells(c.Row, 1).Value <> Cells(1, c.Column).Value Then
c.Value = ""
End If
Next
End Sub
ありがとうございます。
変数がいくつも出てくるマクロを組んでいるため
変数が一つで済むところが非常にありがたいです。
これで業務効率化がスムーズに進みそうです。
どうもありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【至急】 当方初心者です。 マクロについて知恵をお貸しください。 ★したい動作 ①リストE列2行目か 4 2022/09/29 18:56
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) VBA 指定した列にある日時データから時間を削除する方法について 4 2022/04/14 11:17
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Excel(エクセル) エクセル マクロ 行や列を削除しても 常にC3セルに背景色を維持 6 2023/04/04 02:07
- Excel(エクセル) エクセルのVBAにショートカットキーの割り当て 3 2022/07/13 14:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
Cellsのかっこの中はどっちが行...
-
vba 2つの条件が一致したら...
-
【VBA】2つのシートの値を比較...
-
VBAのFind関数で結合セルを検索...
-
VBA 何かしら文字が入っていたら
-
最終列の右へSUM関数を作成する...
-
マクロ 最終列をコピーして最終...
-
IIF関数の使い方
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
DataGridViewに空白がある場合...
-
VBAでのリスト不一致抽出について
-
VBAで文字列を結合
-
VBAコンボボックスで選択した値...
-
rowsとcolsの意味
-
VBAの構文 3列置きにコピーし...
-
【Excel VBA】 B列に特定の文字...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
VBAのFind関数で結合セルを検索...
-
IIF関数の使い方
-
【VBA】2つのシートの値を比較...
-
マクロ 最終列をコピーして最終...
-
VBA 何かしら文字が入っていたら
-
Changeイベントでの複数セルの...
-
URLのリンク切れをマクロを使っ...
-
エクセルVBAにて =A1=B1とすれ...
-
VBAでのリスト不一致抽出について
-
データグリッドビューの一番最...
-
マクロについて。S列の途中から...
-
VBA UserFormからの転記で
-
targetをA列のセルに限定するに...
おすすめ情報