こんにちは。
私はスーパーマケットの商品部で仕事をしています。
最近、デジタルの勉強を始め、デジタルを活用し新しいことができることに
日々感動と驚きの毎日を過ごしています。

今回は部署メンバーを巻きこみ業務課題の解決を図ります。
今回はバイヤーとパートさんに関係するチラシなどの特売明細を自動で１枚にまとめられるようPowerAutomateDesktopを使用し課題解決にチャレンジしてみました。
自部署では、各バイヤーからメールで送られてくる特売明細をパートの方が１枚の書式にまとめ、店舗に開示したり（部門で決めている専用フォーム）、発注やＰＯＰ申請を行っています。この１枚にまとめる際に、最大でバイヤー5名から複数アイテムの依頼があります。バイヤーによってフォームが微妙に異なってる場合があるためそのままコピーして貼ることができません。依頼のあったシートをまとめるのに20分、確認作業で10分使用しています。日付を間違ってしまったり、原価や売価の欄が１行ズレてしまったりと慎重になるため以外に時間を費やしています。この作業を自動化し、登録や確認作業に時間を使用していけると良いと思います。

作成したものはこちら

バイヤーから送付されてくる販促情報が記載されたExcelを自動で1枚のExcelにまとめます。
Ａシート

Ｂシート

ＡシートとＢシートを1枚にまとめまたものがこちら

実際にまとめる様子

#protoout #PowerAutomateDesktop
第一段階～ pic.twitter.com/OOOqblbeud
— 勝又慎司 (@KatsumataS80528) April 26, 2023

使用するもの

・PowerAutomateDesktop
・Excel

作り方

1、情報が入力された複数のExcelを用意します。
2、PowerAutomateDesktopで複数のExcelデータを１つのExcelにまとめます。

全体フロー

フローのソースコード

Display.SelectFileDialog.SelectFiles InitialDirectory: $'''C:\\Users\\katsumata-shinji\\Desktop\\チラシ''' FileFilter: $'''*.xlsx''' IsTopMost: False CheckIfFileExists: False SelectedFiles=> SelectedFiles ButtonPressed=> ButtonPressed
Excel.LaunchExcel.LaunchUnderExistingProcess Visible: True Instance=> ExcelInstance
Excel.LaunchExcel.LaunchAndOpenUnderExistingProcess Path: CurrentItem Visible: True ReadOnly: False Instance=> ExcelInstance2
Excel.ReadFromExcel.ReadCells Instance: ExcelInstance2 StartColumn: 1 StartRow: 1 EndColumn: 32 EndRow: 32 ReadAsText: False FirstLineIsHeader: False RangeValue=> ExcelData
Excel.GetFirstFreeColumnRow Instance: ExcelInstance2 FirstFreeColumn=> FirstFreeColumn FirstFreeRow=> FirstFreeRow
Excel.WriteToExcel.WriteCell Instance: ExcelInstance Value: ExcelData Column: 1 Row: 1
Excel.CloseExcel.Close Instance: ExcelInstance2

1.ファイルの選択ダイアログを表示
初期フォルダを選択します。
ファイルフィルターを「.xlsx]に設定します。

2.Excelの起動
Excelの起動で「空のドキュメントを使用」を選択します。

3．For eachの設定
パラメーターの選択から反復処理を行う値を「SelectedFiles」にします。
前後に必ず「％」を入力します。

4.Excelの起動
Excelの起動で「次のドキュメントを開く」を選択
ドキュメントパスを「CurrentItem」に設定します。

5.Excelワークシートから読み取る
Excelインスタンスを「ExcelInstance2]に設定します。
取得に「セル範囲の値」を選択し、読み取る行列範囲を指定します。

6.Excelワークシートから最初の空の列や行を取得
Excelインスタンスに「ExcelInstance2」を選択します。

7.Excelワークシートに書き込む
Excelインスタンスに「ExcelInstance」を選択します。
書き込む値を「ExcelData」にします。
書き込みモードで「指定したセル上」で列と行を指定します。

8.Excelを閉じる
Excelインスタンスに「ExcelInstance2」を設定します。
Excelを閉じる前に「ドキュメントを保存しない」を選択します。

以上で完成になります。

実際に使用してもらおう

今回は直属の上司であるＫ部長・パートの方に使用してもらいました。
使用する前に「現在、自部署では複数のExcelを1枚にまとめる作業が多く、この作業を正確で速くできるようにPowerAutomateDesktopを使用し改善を図りました。」と説明。あわせてPowerAutomateDesktopはフォルダの中にあるファイルを自動で仕訳けたり、自動でメールの送信やメールで送られてきたファイルを自動で保存できますという説明を画面を見ながら行い、感想やご意見をいただきました。

感想・ご意見
Ｋ部長

この速さで処理できる点はすごいと思う。複数の作業を１度にまとめてできる点は非常に便利。並び順まで１回で変更できるとさらに良い。他の業務でも改善できるよう挑戦してもらいたい。気をつけなければいけないことは、このツールを使用するために自動化できるものを探しに行ってしまっては意味がなくなってしまうので、自分が行っている作業や周囲の作業をしっかり観察し、効率や課題を解決していくかということが重要なこと。自動化した際の最終形態をどのようにイメージできるかが重要になる。そこをしっかり考えて使用できれば、業務課題の解決と効率化につながる。

パートさん

1枚に簡単にまとめられて便利。今までまとめる際に転記の間違いがないかなど非常に意識していた。その部分を考えなくて良くなるので気持ちも少し楽になる。ファイルも確認できるので漏れがないかを気を付け、大幅に作業時間が短縮できそう。

最後に

今回も身近な業務で課題の解決に挑戦しました。
ご意見でいただいた「並び順」は調べてみましたが、今の私には難しそう。もっと調べてみたいと思います。
感想やご意見をいただいたなかで、もっと業務の深堀りしていかなければいけないと感じました。
ご意見の中に「最終形態のイメージをどのようにするのか」をしっかり考えていかなければいけないと感じました。自動化で便利になる一方で、根本の考え方をしっかりつかんでいくことも大事なことだと思います。なぜその業務を行うのかがしっかりつかめていると自動化に結びつけやすくなる。いろいろ試すなかで、新しい発見と可能性が広がると思います。さらなる業務課題改善にむけ期待が膨らみました。
最後まで読んでいただきありがとうございます。