
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ランキング
-
フレックスタイム制についての...
-
「丸の内オアゾ自体に(入口)...
-
私ばかりが遅番勤務の理由、納...
-
体調不良で派遣初日を変更する...
-
勤務時間が終わっても職場に居...
-
パチンコ店でバイトをしており...
-
高卒と大卒でビザの下りやすさ...
-
セブンイレブンでの誓約書
-
派遣の方、派遣を雇っている会...
-
退職日まであと4回勤務です。 ...
-
新しい職場が労働基準法の労働...
-
マックでバイトするんですが明...
-
会社にいるおじさんのLINEや声...
-
準委任契約の休憩時間について
-
代休制度の対象について
-
東京都が定めた不要不急ビジネ...
-
工場の始業時間が早いのはなぜ?
-
警備員の監視・断続的労働の労...
-
ちょうど8時間働いたときの休...
-
在日の外国公館に、その国の軍...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
高卒と大卒でビザの下りやすさ...
-
体調不良で派遣初日を変更する...
-
私ばかりが遅番勤務の理由、納...
-
休憩時間が遅い
-
再度質問です。シフト表から日...
-
「丸の内オアゾ自体に(入口)...
-
退職日まであと4回勤務です。 ...
-
工場勤務の人って陰湿な人多く...
-
非正規な
-
4月入職した者ですが、 忙しく...
-
会社にいるおじさんのLINEや声...
-
私には消防士の彼氏がいるので...
-
20代中盤です。 工場勤務ですが...
-
うちの職場に、1日10時間勤務で...
-
歯科助手と受付の正社員なりた...
-
営業職をやるとしてどちらの会...
-
セブンイレブン休憩時間帯につ...
-
エクセルでの勤務表作成、イン...
-
整骨院で働く姪っ子について 一...
-
勤務時間が終わっても職場に居...
おすすめ情報
コメントありがとうございます。
上記を実施した際ですが、A勤、B勤それぞれ最初に条件に合致したものを300 or 400行に
貼り付けており、以降は抽出できておりません。
A勤、B勤それぞれを全て抽出するにはどのようにしたらよいでしょうか。
宜しくお願い致します。