【Excel】VBAマクロでファイル移動を一括で（別のフォルダ：ディレクトリなど）行う方法【MoveFiles関数、FileDialog関数使用】

Sub MoveFilesUsingList()
    Dim keiro As String
    Dim mokuteki As String
    Dim hensuu As Range
    Dim sakuhin As Workbook
    Set sakuhin = Workbooks.Open("C:\path\to\okokok.csv")
    keiro = "C:\source\path\"
    mokuteki = "C:\destination\path\"
    For Each hensuu In sakuhin.Sheets(1).Range("A2:A" & sakuhin.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row)
        If Dir(keiro & hensuu.Value) <> "" Then
            FileCopy keiro & hensuu.Value, mokuteki & hensuu.Value
            Kill keiro & hensuu.Value
        End If
    Next hensuu
    sakuhin.Close False
End Sub

Sub MoveFilesUsingDialog()
    Dim mokuteki As String
    Dim dialog As FileDialog
    Set dialog = Application.FileDialog(msoFileDialogFilePicker)
    dialog.AllowMultiSelect = True
    mokuteki = "C:\destination\path\"
    If dialog.Show = -1 Then
        For Each Selection In dialog.SelectedItems
            FileCopy Selection, mokuteki & Dir(Selection)
            Kill Selection
        Next Selection
    End If
End Sub