vba删除文件夹下多个excel的同一列

要使用VBA删除文件夹下多个Excel的同一列，可以按照以下步骤进行操作：

1. 首先，需要打开一个新的Excel文件并启用VBA编辑器。可以通过按下Alt + F11键来打开VBA编辑器。

2. 在VBA编辑器中，点击“插入”菜单，选择“模块”以创建一个新的模块。

3. 在新的模块中，开始编写VBA代码。首先，需要定义变量来存储文件夹路径和列号。可以使用FileSystemObject来处理文件和文件夹。

4. 使用FileSystemObject对象的GetFolder方法来获取文件夹对象。然后，使用Folder对象的Files属性来获取文件列表。

5. 使用For Each循环来遍历文件列表。在循环中，使用Workbooks.Open方法打开每个Excel文件。

6. 在每个打开的文件中，使用Worksheets对象的Columns属性和Range对象的EntireColumn属性来删除指定的列。可以使用Delete方法来删除列。

7. 最后，关闭并保存每个修改过的Excel文件。

下面是一个示例代码的简单模板：

Sub DeleteColumnInMultipleExcels()
    Dim FSO As Object
    Dim FolderPath As String
    Dim ColumnNumber As Integer
    
    '设置文件夹路径和列号
    FolderPath = "文件夹路径"
    ColumnNumber = 1
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim objFolder As Object
    Set objFolder = FSO.GetFolder(FolderPath)
    Dim objFile As Object
    For Each objFile In objFolder.Files
        If Right(objFile.Name, 4) = ".xls" Or Right(objFile.Name, 5) = ".xlsx" Then
            Dim wb As Workbook
            Set wb = Workbooks.Open(objFile.Path)
            Dim ws As Worksheet
            Set ws = wb.Sheets(1)
            
            '删除指定列
            ws.Columns(ColumnNumber).Delete
            
            '保存并关闭文件
            wb.Close SaveChanges:=True
        End If
    Next objFile
    Set FSO = Nothing
    MsgBox "列已从多个Excel文件中删除。"
End Sub

以上是一个简单的示例代码，可以根据实际的需求进行修改和调整。另外，请注意将示例代码中的"文件夹路径"替换为要处理的实际文件夹路径，并根据需要设置要删除的列号。