No.2ベストアンサー
- 回答日時:
#1の者です。
操作を間違えて回答ボタンを押してしまいました。少し追加させてください。このマクロは、最終列まですべての列にデーターが入力されていないとうまく動作しません。
myRange = Range(myCell).SpecialCells(xlCellTypeVisible).End(xlUp).Offset(2, 0).Address
マクロのこの部分は、タイトル行を除くデータの先頭行を取得するためのマクロです。もし、タイトル行が1行の場合は下記のように変更して下さい。
myRange = Range(myCell).SpecialCells(xlCellTypeVisible).End(xlUp).Offset(1, 0).Address
あなた様がVBAをご存知であることを前提として書いてあります。もし、このマクロを実行させる方法がわからない時・うまく動作しない場合は、ご遠慮なくお知らせ下さい。
私でよろしければ、あなた様のおやりになりたいことが実現するまでご一緒に考えていきたいと思います。
No.3
- 回答日時:
テストデータとして
(A列) (B列)
氏名年齢
山田12
鈴木20
大田12
鈴木21
上田24
小山18
鈴木20
鈴木21
(コード)
鈴木、21歳をフィルタ。そして削除。
Sub test01()
'---コピー保存
Selection.Copy Range("a20")
'---フィルタ
With Selection
.AutoFilter
.AutoFilter Field:=1, Criteria1:="鈴木"
.AutoFilter Field:=2, Criteria1:="21"
'----削除
.SpecialCells(xlVisible).Delete
'----見出し復活
'---行挿入
Range("a1").EntireRow.Insert
Range("a20").CurrentRegion.Rows(1).Copy
Range("a1").Select
ActiveSheet.Paste
End With
End Sub
(実行)
A1:B9を範囲指定して実行。
(結果)
(A列) (B列)
氏名年齢
山田12
鈴木20
大田12
上田24
小山18
鈴木20
No.1
- 回答日時:
はじめまして。
私でよければサンプルマクロを作ってみました。参考にしてみて下さい。Dim myRange As String
Dim myCell As String
Dim myColumn As String
Rows("2:2").autofilter Field:=3, Criteria1:="203 "
myCell = Range("A3").SpecialCells(xlCellTypeLastCell).Address
myRange = Range(myCell).SpecialCells(xlCellTypeVisible).End(xlUp).Offset(2, 0).Address
myRange = Range(myRange).End(xlToLeft).Address
Range(myRange & ":" & myCell).Delete
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら…
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Excel マクロ オートフィルで抽出後 削除したい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで時刻(8:00~20:00)...
-
エクセルのオートフィルタで最...
-
エクセルでオートフィルタのボ...
-
Excelのオートフィルタで非表示...
-
関数で小数点以下を抽出したい
-
Excel共有ブックのオートフィル...
-
エクセル関数で、数字の入った...
-
Excel2003 オートフィルタで「...
-
エクセルの偶数行(奇数行)の抽出
-
【EXCEL】条件に一致した最新デ...
-
Excelで文字を入力と自動的にフ...
-
Excel時間データの抽出
-
オートフィルタで3つ以上の条...
-
エクセルにて、フィルタをかけ...
-
エクセルで検索窓のようなもの...
-
エクセル フィルタで抽出したデ...
-
オートフィルタの抽出が途中で...
-
可視セルを対象としたcountifが...
-
エクセル・条件付で行を削除す...
-
データの抽出を教えてください
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルで時刻(8:00~20:00)...
-
エクセルのオートフィルタで最...
-
Excelのオートフィルタで非表示...
-
エクセルの偶数行(奇数行)の抽出
-
エクセル関数で、数字の入った...
-
Excel共有ブックのオートフィル...
-
access マクロでのフィルタの...
-
エクセルにて、フィルタをかけ...
-
エクセルで検索窓のようなもの...
-
データの抽出を教えてください
-
なぜShowAllDataだとうまく行か...
-
エクセル、オートフィルタで最...
-
オートフィルタで3つ以上の条...
-
エクセルで、条件に一致した行...
-
Excelで文字を入力と自動的にフ...
-
可視セルを対象としたcountifが...
-
【EXCEL】条件に一致した最新デ...
-
今日の日付のデータをすばやく...
-
ACCESSでスペースの抽出
おすすめ情報