解决方案:

1. 使用Visual Basic编写一个Excel宏来进行安排。

Sub ArrangeData()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取最后一行的行数
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 循环遍历每一行数据
    For i = 2 To lastRow
        ' 将第一列的值复制到第二列
        ws.Cells(i, 2).Value = ws.Cells(i, 1).Value
        
        ' 将第一列的值清空
        ws.Cells(i, 1).ClearContents
    Next i
End Sub

在Excel中执行上述宏可以将第一列的数据复制到第二列，并清空第一列的内容。

2. 使用Visual Basic编写一个Excel插件，以自定义功能来安排数据。以下是一个简单的示例：

Public Sub ArrangeData()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取最后一行的行数
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 循环遍历每一行数据
    For i = 2 To lastRow
        ' 将第一列的值复制到第二列
        ws.Cells(i, 2).Value = ws.Cells(i, 1).Value
        
        ' 将第一列的值清空
        ws.Cells(i, 1).ClearContents
    Next i
End Sub

将以上代码保存为.xlam文件，并将其添加到Excel插件。

3. 使用Visual Basic编写一个独立的控制台应用程序来安排数据。以下是一个简单的示例：

Module Module1
    Sub Main()
        Dim excelApp As Object
        Dim workbook As Object
        Dim worksheet As Object
        Dim lastRow As Integer
        Dim i As Integer
        
        ' 创建Excel应用程序对象
        excelApp = CreateObject("Excel.Application")
        
        ' 打开工作簿
        workbook = excelApp.Workbooks.Open("C:\path\to\your\file.xlsx")
        
        ' 设置要操作的工作表
        worksheet = workbook.Sheets("Sheet1")
        
        ' 获取最后一行的行数
        lastRow = worksheet.Cells(worksheet.Rows.Count, 1).End(-4162).Row
        
        ' 循环遍历每一行数据
        For i = 2 To lastRow
            ' 将第一列的值复制到第二列
            worksheet.Cells(i, 2).Value = worksheet.Cells(i, 1).Value
            
            ' 将第一列的值清空
            worksheet.Cells(i, 1).ClearContents
        Next i
        
        ' 保存并关闭工作簿
        workbook.Save
        workbook.Close
        
        ' 退出Excel应用程序
        excelApp.Quit
        
        ' 释放对象
        ReleaseObject(worksheet)
        ReleaseObject(workbook)
        ReleaseObject(excelApp)
    End Sub
    
    Private Sub ReleaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub
End Module

以上代码用于打开Excel文件并将第一列的数据复制到第二列，并清空第一列的内容。请将代码中的文件路径替换为您的实际路径。

无论哪种方法，您都可以根据具体需求进行修改和扩展。