For Each excel In .SelectedItems Workbooks.Open excel Columns("A:A").Select 每次到这就出现错我1004， 应用程序定义或对象定义错误，单独打开文件时运行宏不会出错。
Sub 分列()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim excel, fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = True
If .Show = -1 Then
For Each excel In .SelectedItems
Workbooks.Open excel
Columns("A:A").Select //这里每次都出错，求高手指教
先要指定到工作表，才能调用Columns，所以你这个。
把前面加一个ActiveSheet，变成下面这样就可以：
ActiveSheet.Columns("A:A").Select
把前面加一个ActiveSheet，变成下面这样就可以：
ActiveSheet.Columns("A:A").Select
温馨提示：答案为网友推荐，仅供参考
