いつもお世話になっております。
エクセルVBAについてお尋ねします。
仕事でエクセルによって、各担当者ごとの業務報告書を作成しております。
仕様を簡単に説明させていただくと。
Sheet2以降に各担当者ごとの業務報告書があり、その集計をSheet1の総括にて行っております。
各担当者のシート様式は、日付ごとにAAA項目、BBB項目、CCC項目等の項目があり、それぞれに対して担当者が記載していくようになっております(添付ファイル参照)
総括のシートも様式は担当者の様式と同じです。
VBAによって、Sheet2以降の項目を総括に転記するところまでは出来たのですが(ちょうど添付ファイルのように日付がランダムに並んでいる状態です)
この後の、並び替え作業の方法が分かりません。セルの結合を行っている箇所もあるのでSortも出来そうに無いですし・・・。
現在は、添付ファイルのようにA列に日付順の順位を表記した状態で止まっております。
並び替えの方法をご指導願います。
また、並び替えが完了した後で、重複する行(添付ファイルの4月2日の箇所)を削除する方法があれば、一緒にご指導をお願いいたします。
初歩的な質問で申し訳ありませんが、よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
折角マクロを使ってるのですから、丁寧にマクロを動かしていけば簡単にやってくれます。
sub macro1()
dim lastRow as long
dim r as long
’並べ替え準備
lastrow = range("C65536").end(xlup).row
range("B:B").unmerge
range("B2:B" & lastrow).specialcells(xlcelltypeblanks).formular1c1 = "=R[-1]C"
’並べ替え
range("B2:D" & lastrow).sort key1:=range("B2"), order1:=xlascending, header:=xlno
’復元
application.displayalerts = false
for r = lastrow - 2 to 2 step -3
cells(r, "B").resize(3, 1).merge
’if application.countif(range("B2:B" & r), cells(r, "B").value ) > 1 then cells(r, "B").resize(3, 1).entirerow.delete shift:=xlshiftup
next r
application.displayalerts = true
end sub
>重複する行(添付ファイルの4月2日の箇所)を削除する方法
(上述でとりあえず止めてあるようにして)「(2つ目以降の)4月2日の3行を無造作に削除」してしまっていいのか、C列やD列の記載内容を含めて「重複」を判断する必要があるのか、具体的な状況を添えて「別途のご相談として」投稿し直して下さい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Excel VBA 転記について 1 2022/04/20 16:55
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Visual Basic(VBA) 【VBA】指定した検索条件に一致したら別シートに転記したい 2 2022/03/23 16:14
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 【VBA】データを入力後に,同一シート内に履歴として転記するVBAコードを教えていただきたいです。 3 2022/11/16 01:37
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/06/02 08:44
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/06/01 14:45
- Excel(エクセル) VBAで、シート間の転記するコードを教えてください。 4 2023/03/26 10:43
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UWSCでie内のデータを取得しエ...
-
Excel2003 マクロで同じ文字列...
-
結合したセルの並び替え(エク...
-
VBAで保存しないで閉じると空の...
-
Excel マクロの編集がグレーに...
-
WPSOffice_マクロの有効化について
-
Excelのマクロでボタンを押すと...
-
【Excel VBA】マクロでExcel自...
-
エクセル関数>参照ファイル名...
-
エクセル ボタンに設定したマク...
-
エクセルで、「いいね」のよう...
-
エクセルの、記録を終了したマ...
-
エクセル;相対パスを絶対パスへ...
-
セルに入力するたびにマクロを...
-
エクセルVBA 個人用マクロブッ...
-
エクセル マクロ名にブック名...
-
VBA Shapes コピーと名前
-
excelで直前に参照していたブッ...
-
複数のマクロボタンをまとめて...
-
エクセルの表を複数枚印刷した...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
配列内データにsmallを使う
-
【VBA】 通し番号の入力について
-
結合したセルの並び替え(エク...
-
UWSCでie内のデータを取得しエ...
-
Excel2013 マクロ(初心者)2
-
マクロでセル値をAND
-
Excel2003 マクロで同じ文字列...
-
ワークブックを追加したあとに ...
-
Excel VBA データ差し込みPDF...
-
マクロで自動的に計算式に値を...
-
Excel vba PDF 複数ファイルを...
-
VBAで保存しないで閉じると空の...
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
Excelのマクロでボタンを押すと...
-
エクセル関数>参照ファイル名...
-
エクセル ボタンに設定したマク...
-
エクセルで、「いいね」のよう...
-
【Excel VBA】マクロでExcel自...
-
エクセルの表を複数枚印刷した...
おすすめ情報