![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
エクセルで ある列 A列に下の方に 文字が入ってゐて 並んでいて 例えば 表という文字が
A1に入ってゐて、A2に表の内容が○○、A3にも△△、・・・・という具合で並んでいて、A5に裏
という文字が入ってきて、その裏内容がA6 ××、××、A7 ◇◇と並んでいて さらに下ってゆくと例えばA9にまた表という文字が入ってきてA10にその内容の□□、A11◆◆・・とならんでいてしかしまたA15に裏という文字がでてきて、その裏の内容をA16、A17....という具合に下にならんで繰り返していった場合、裏という行を含めた裏の内容の行を一気に消す VBAはどう書けばいいのでしょうか。つまりは裏の内容を一気に消し、表の内容だけにしたいということです。ご教授ください。
No.2ベストアンサー
- 回答日時:
こんにちは!
表のレイアウトがよく判らないのですが・・・
単にA列が「裏」の行を削除ではなく、↓の画像のような場合
黄色のセルの行を削除したい!というコトでしょうか?
そういうコトだとしての一例です。
Sub Samle1()
Dim i As Long, myRng As Range, myFlg As Boolean
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A") = "裏" Then
myFlg = True
ElseIf Cells(i, "A") = "表" Then
myFlg = False
End If
If myFlg = True Then
If myRng Is Nothing Then
Set myRng = Cells(i, "A")
Else
Set myRng = Union(myRng, Cells(i, "A"))
End If
End If
Next i
If Not myRng Is Nothing Then
myRng.EntireRow.Delete
MsgBox "完了"
Else
MsgBox "該当データなし"
End If
End Sub
こんな感じではどうでしょうか?m(_ _)m
![「一定の行間の削除」の回答画像2](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/e/667667_5c1d796f8065f/M.jpg)
No.3
- 回答日時:
この作業をマニュアル操作で行う場合、たとえばB列を作業列にして、削除対象を判断するための数式を設定し、その値を元に行削除したりすると思いますが、それをマクロにしてみました。
こんな感じです。Sub sample()
With Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row)
.Formula = "=IF(A1=""裏"",NA(),IF(A1=""表"","""",OFFSET(B1,-1,0)))"
.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル 関数について 2 2022/10/10 07:56
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
- C言語・C++・C# C言語の質問です。 以下の命令を実行するプログラムを作りました ①文字列aとbの長さを表示 ②aとb 1 2022/04/29 15:35
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/15 08:30
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
- スタンプ・絵文字・顔文字 PCに表示された内容(文字)をコピペすると・・・ 4 2022/10/12 16:18
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/08 09:05
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- Excel(エクセル) エクセルのことで教えてください。 A1セルに、 別シートのA1セルが1のときは「A」、2のときは「B 4 2023/02/24 23:08
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
裏セグメントってなんですか? ...
-
ケント紙の表と裏
-
汚い話ですが ちんこが黒いじゃ...
-
csvファイルの文章に一括で改行...
-
なんで皆さんは教えて!gooにい...
-
アメブロのアメンバー限定みた...
-
集客に使うブログ
-
完全にプライベートな日記とし...
-
アメブロのブロガーにメッセー...
-
なんでヤフーは非公開出来なく...
-
ブログ記事をすべてダウンロー...
-
教えてgooで、質問履歴を非公開...
-
ブログ
-
パソコンで日記を書く良い方法...
-
先日海の岩場でオレンジ色の生...
-
林あさ美さん今どうしてますか
-
ウェブ魚拓というもので私のブ...
-
ブログに画像を載せる際の注意...
-
教えて!gooで、自分の質問を、...
-
質問履歴、回答履歴を非公開に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
おすすめ情報