毒劇 - Google ドライブ

With Application.FileDialog(msoFileDialogFolderPicker)'ファイル選択ダイアログボックスのプロパティ.AllowMultiSelect = False '複数選択を許可するかどうか（True：許可する、False：許可しない）.Title = "フォルダを選択してください" 'ダイアログボ…

Sub MergeCSVFiles4()'フォルダのパスを指定'ユーザーにCSVファイルが格納されたフォルダを選択してもらうMsgBox "データをまとめるCSVファイルが格納されているフォルダを選択してください", vbOKOnlyWith Application.FileDialog(msoFileDialogFolderPicke…

'CSVファイルを開くOpen file.Path For Input As #1'CSVファイルのデータをエクセルシートに書き込むlastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).RowfileName = Replace(file.Name, ".csv", "")createDate = Format(fileSystem.GetFile(file.Path).Date…

Sub ExtractMissingNumbers欠番検索() Dim rng As Range Dim i As Long, lastRow As Long Dim missingNumbers As String '処理するセル範囲を設定 Set rng = Range("A1:A10000") '実際のセル範囲に合わせて変更してください '最終行を取得 lastRow = rng.Cel…

Sub ExtractMissingNumbers欠番検索() Dim rng As Range Dim i As Long, lastRow As Long Dim missingNumbers As String '処理するセル範囲を設定 Set rng = Range("A1:A10000") '実際のセル範囲に合わせて変更してください '最終行を取得 lastRow = rng.Cel…