職種別転職体験談
新着記事
地道にコツコツと積み上げていく仕事が多いですが、誰よりも先に情報を手に入れられる可能性があるのが魅力です。
営業職という分野にプロ意識を持つ自分としては、成功の証（インセンティブ）を頂くことが大きなモチベーションとなっています。
何とかなるだろうと未経験で挑戦した求人広告営業。経営者とお会いする機会が多く、ワクワクしながら仕事をしています。
「感謝の言葉が私達のエネルギー」困っている人には手を差し伸べ、戦う時には無になって対応する。
未経験の仕事でも日々努力し挑戦して経験に変えていけば、自分のスキルや成長にもつながる。
「もっと利益を追求したい」という一部の欲求を満たすために転職。その他の条件面を確認しなかった結果・・・。
私の手がけた広告がきっかけで転職する方がいること、そしてその転職を喜んでもらえることが何よりの喜びです。
チャレンジすることは恥ずかしいことではないことを学びました。
filePath = “”C:データフォルダ”” ‘ 実際のフォルダパスに修正してください
‘ コピー元のフォルダパスを指定（必要に応じて変更）
Set wb = ThisWorkbook
‘ 貼り付け先のブックを設定
Dim i As Long ‘ ループカウンタ
Dim pasteRow As Long ‘ 貼り付け先の行
Dim lastRow As Long ‘ 最終行
Dim fileName As String ‘ コピー元のファイル名
Dim filePath As String ‘ コピー元のフォルダパス
Dim ws As Worksheet ‘ シート
Dim wbSource As Workbook ‘ コピー元のブック
Dim wb As Workbook ‘ 貼り付け先のブック
Sub フラグAのデータコピー()
次に、F列のフラグが “”a”” の行のみをコピーして貼り付けるVBAコードを作成します。
2. 特定の条件（フラグ “”a””）を満たすデータのみをコピー＆ペーストするコード
メッセージボックス: MsgBox ""データ集計が完了しました！""で、処理が完了したことをメッセージボックスで表示します。
MsgBox ""データ集計が完了しました！""
次のファイルの検索: fileName = Dir()で、次のExcelファイルを検索します。
fileName = Dir()
ブックのクローズ: wbSource.Close SaveChanges:=Falseで、コピー元のExcelファイルを閉じます（変更を保存しない）。
wbSource.Close SaveChanges:=False
貼り付け先の行の更新: pasteRow = pasteRow + lastRow - 1で、貼り付け先の行を更新します。
pasteRow = pasteRow + lastRow - 1
最終行の取得: lastRow = ws.Cells(Rows.Count
lastRow = ws.Cells(Rows.Count
データのコピーと貼り付け: ws.Range(""A2:XFD"" & lastRow).Copyで、データをコピーし、wb.Sheets(""Sheet1"").Cells(pasteRow
ws.Range(""A2:XFD"" & lastRow).Copy
wb.Sheets(""Sheet1"").Cells(pasteRow
シートのループ処理: For Each ws In wbSource.Worksheetsで、開いたExcelファイルの各シートを順番に処理します。
For Each ws In wbSource.Worksheets
ブックのオープン: Set wbSource = Workbooks.Open(filePath & fileName)で、コピー元のExcelファイルを開きます。
Set wbSource = Workbooks.Open(filePath & fileName)
ファイルのループ処理: Do While fileName <> """"で、見つかったExcelファイルを順番に処理します。
Do While fileName <> """"
ファイル検索: fileName = Dir(filePath & ""*.xlsx"")で、指定されたフォルダ内のExcelファイル（.xlsx）を検索します。
fileName = Dir(filePath & ""*.xlsx"")
ファイルパスの指定: filePath = ""C:データフォルダ""で、コピー元のファイルが格納されているフォルダのパスを指定します。このパスは、実際のフォルダに合わせて変更してください。
filePath = ""C:データフォルダ""
ブックの設定: Set wb = ThisWorkbookで、現在のブック（マクロが記述されているブック）を貼り付け先として設定します。
変数の宣言: Dimステートメントを使用して、必要な変数を宣言します。ブック、シート、ファイルパス、ファイル名、最終行、貼り付け先の行などを格納するための変数を定義します。
Dim
このコードでは、まずコピー元のファイルのパスを指定し、そのフォルダ内のすべてのExcelファイルを順番に開いて処理します。各ファイル内のすべてのシートからデータをコピーし、貼り付け先のシートに値として貼り付けます。最後に、処理が完了したことをメッセージボックスで表示します。
MsgBox “”データ集計が完了しました！””
Loop
‘ 次のファイル
‘ コピー元のブックを閉じる
Next ws
End If
pasteRow = pasteRow + lastRow – 1 ‘ ヘッダー行を除く
‘ 貼り付け先の行を更新
wb.Sheets(“”Sheet1″”).Cells(pasteRow
ws.Range(“”A2:XFD”” & lastRow).Copy ‘ データの範囲をコピー
‘ データをコピーして貼り付け
If lastRow > 1 Then ‘ ヘッダー行を除く
‘ データがある場合
‘ 最終行を取得
‘ 各シートを処理
