エクセルで ある列 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
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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
確率の問題です。 3枚の硬貨を...
-
裏も表もない物
-
iPodtouch4水没。゜(゜´Д`゜)゜。
-
ブログ記事をすべてダウンロー...
-
csvファイルの文章に一括で改行...
-
青唐辛子の一升漬けに白カビが...
-
集客に使うブログ
-
これって腐ってる?(かなり急...
-
完全にプライベートな日記とし...
-
ソフト・・・個人利用と商用利...
-
パソコンで日記を書く良い方法...
-
自分のパスワードの確認方法を...
-
アメブロのIDとIPアドレスがま...
-
FC2ブログは1年くらい更新が...
-
gooブログ内を検索する方法
-
Amebaのブログを閉鎖しますが、...
-
アメブロのフォローフィードっ...
-
gooブログ
-
【大至急】アメーバブログ【大...
-
ブログ記事はブログ記事の作者...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
確率の問題です。 3枚の硬貨を...
-
裏も表もない物
-
ケント紙の表と裏
-
裏セグメントってなんですか? ...
-
隠密裏 って何と読むのですか?
-
翅裏の読み方
-
一枚の硬貨を7回投げて、6回以...
-
「裏拳」ってどこのことですか?
-
汚い話ですが ちんこが黒いじゃ...
-
トイレの手洗いのはずしかた
-
URLって なんですか
-
歯の浮くような綺麗事を言う人...
-
本皮のはぎれを買ったので四角...
-
英語で何と言いますか
-
SEO対策について
-
古いロイヤルコペンハーゲンの...
-
csvファイルの文章に一括で改行...
-
ブログ記事をすべてダウンロー...
-
青唐辛子の一升漬けに白カビが...
-
完全にプライベートな日記とし...
おすすめ情報