No.1ベストアンサー
- 回答日時:
こんばんは!
VBAになりますが一例です。
1行目は項目行になっているという前提です。
Sub Sample1()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
If lastRow >= 300 Then
Range(Cells(300, "A"), Cells(lastRow, "C")).ClearContents
End If
With Range("A1").CurrentRegion
.AutoFilter field:=2, Criteria1:="A勤務"
.SpecialCells(xlCellTypeVisible).Copy
Range("A300").PasteSpecial Paste:=xlPasteValues
.AutoFilter field:=2, Criteria1:="B勤務"
.SpecialCells(xlCellTypeVisible).Copy
Range("A400").PasteSpecial Paste:=xlPasteValues
End With
ActiveSheet.AutoFilterMode = False
Application.CutCopyMode = False
End Sub
こんな感じではどうでしょうか?m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
工場勤務の人って陰湿な人多く...
-
私ばかりが遅番勤務の理由、納...
-
休日出勤の休憩時間分は無給で...
-
バイト先の主婦さんにめちゃく...
-
休憩時間が遅い
-
同じ系列店でのアルバイト
-
退職日まであと4回勤務です。 ...
-
エクセルの時間外勤務時間と深...
-
工場の始業時間が早いのはなぜ?
-
幹部自衛官の残業、夜勤について
-
体調不良で派遣初日を変更する...
-
新卒で小売業界に入りましたが...
-
デパ地下で惣菜販売のバイトを...
-
損保ジャパンのパートってどん...
-
9時から17時までの間の勤務で休...
-
整骨院で働く姪っ子について 一...
-
ライン作業(食品)では、食事...
-
どうすれば出勤日数を減らして...
-
週4日勤務について
-
16時までの勤務なのに、15時57...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コールセンター勤務です。 リー...
-
私ばかりが遅番勤務の理由、納...
-
休憩時間が遅い
-
工場勤務の人って陰湿な人多く...
-
退職日まであと4回勤務です。 ...
-
私には消防士の彼氏がいるので...
-
工場の始業時間が早いのはなぜ?
-
勤務時間と勤務時間の間は8時...
-
450時間勤務…どうしたらいいの...
-
否めないの意味を教えていただ...
-
中小企業勤務の人って基本的に...
-
8時間フルに働く人で休憩って何...
-
会社にいるおじさんのLINEや声...
-
勤務時間が終わっても職場に居...
-
中小企業勤務の人って基本的に...
-
エクセルの時間外勤務時間と深...
-
●「外国人」と「知的障害者」と...
-
職場の建物内で人が通るような...
-
再度質問です。シフト表から日...
-
勤務時間が一方的に減らされる...
おすすめ情報
コメントありがとうございます。
上記を実施した際ですが、A勤、B勤それぞれ最初に条件に合致したものを300 or 400行に
貼り付けており、以降は抽出できておりません。
A勤、B勤それぞれを全て抽出するにはどのようにしたらよいでしょうか。
宜しくお願い致します。