No.2ベストアンサー
- 回答日時:
こんにちは!
VBAになりますが一例です。
標準モジュールに↓コードをコピー&ペーストしてマクロを実行してみてください。
Sub Sample1()
Dim lastRow As Long
Application.ScreenUpdating = False
With Worksheets("Sheet4")
.Rows(1).Insert
.Range("M1") = "ダミー"
lastRow = .Cells(Rows.Count, "M").End(xlUp).Row
Range(.Cells(1, "A"), .Cells(lastRow, "CL")).AutoFilter field:=13, Criteria1:="優良"
If .Cells(Rows.Count, "M").End(xlUp).Row > 1 Then '←念のため
Range(.Cells(2, "A"), .Cells(lastRow, "CL")).SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Sheet5").Range("A1")
End If
.AutoFilterMode = False
.Rows(1).Delete
End With
Application.ScreenUpdating = True
MsgBox "処理完了"
End Sub
こんなんではどうでしょうか?m(_ _)m
No.1
- 回答日時:
負担をかけないのでしたら、マクロ処理かと思います。
[開発]タブの[Visual Basic]から開くウィンドウの[挿入]-[標準モジュール]から表示される白紙部分に以下を記述し、そのウィンドウを閉じます。
Sub Test()
Dim r, cnt, uni
r = 1
Do While Cells(r, "M").Value <> ""
If Cells(r, "M").Value = "優良" Then
cnt = cnt + 1
Select Case cnt
Case Is = 1
Set uni = Range(Rows(r), Rows(r + 7))
Case Else
Set uni = Union(uni, Range(Rows(r), Rows(r + 7)))
End Select
End If
r = r + 8
Loop
uni.Copy Sheets("Sheet5").Range("A1")
End Sub
[開発]タブの[Visual Basic]から開くウィンドウの[挿入]-[標準モジュール]から表示される白紙部分に
Sheet4を表示した状態で、[開発]タブの[マクロ]から上記マクロを実行します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで沢山のレコードの最後に追記するには? 7 2023/04/10 13:27
- Excel(エクセル) Excel教えてください。 下記のことが出来るのは、マクロですか?条件付き書式でしょうか、、?知恵を 5 2022/11/12 09:33
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) エクセルでのコピーペースト 6 2022/09/03 07:14
- Excel(エクセル) フォルダ内のエクセルファイルを開かずにデータ採取する関数式 2 2022/12/22 22:15
- Excel(エクセル) エクセル 関数について 2 2022/10/10 07:56
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Excel(エクセル) Excel での関数についての質問です。 例えばA列に商品名を、B列に個数をそれぞれ入力しています。 7 2023/05/13 10:51
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
【Excel】数字を3倍にし、なお...
-
エクセルのデーターが2か月前の...
-
エクセル マクロ チェックボックス
-
Excel分析ツールでのポアソン回...
-
エクセル共有したが、アクセス...
-
エクセルの計算
-
【マクロ】顧客番号にて一致さ...
-
(マクロ)データをAブックからB...
-
Excelでセルの値が同じか...
-
UNIQUE関数が使えないバージョ...
-
エクセル:一覧表に存在する文...
-
Excel フィルターを掛けた状態...
-
エクセルを使っていて2024/5/15...
-
Googleスプレッドシートでファ...
-
エクセルで日付を数字+アルフ...
-
エクセル②
-
エクセル 文字を増やしたい。
-
【マクロ】毎回、ファイル名が...
-
[関数得意な方]教えて下さい・...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報