[已解决]批量将多个工作簿下的表三甲E列复制到该工作表下的K列

果冻的心

批量将多个工作簿下的表三甲E列（行数不固定）复制到该工作表下的K列

最佳答案

月排行榜 / 总排行榜

bridgeyao

2022-5-14 01:36

看下是否满足你的需求：

Sub xiugai()
Application.ScreenUpdating = False
Dim Ph, Myfile
Ph = "C:\Users\Administrator\Downloads\需解决" '文档存放位置
Myfile = Dir(Ph & "\*.*")
Do While Myfile <> "" And Myfile <> ThisWorkbook.Name
Set wb = Workbooks.Open(Ph & "\" & Myfile)
With wb
    .Sheets("表三甲").[e7:e17].Copy Sheets("表三甲").[k7:k17]
End With
wb.Close True
Myfile = Dir
Loop
Application.ScreenUpdating = true

End Sub

跳转到最佳答案楼层

bridgeyao

看下是否满足你的需求：

Sub xiugai()
Application.ScreenUpdating = False
Dim Ph, Myfile
Ph = "C:\Users\Administrator\Downloads\需解决" '文档存放位置
Myfile = Dir(Ph & "\*.*")
Do While Myfile <> "" And Myfile <> ThisWorkbook.Name
Set wb = Workbooks.Open(Ph & "\" & Myfile)
With wb
    .Sheets("表三甲").[e7:e17].Copy Sheets("表三甲").[k7:k17]
End With
wb.Close True
Myfile = Dir
Loop
Application.ScreenUpdating = true

End Sub

果冻的心

这个只能说e7到17单元格进行复制，我这可能是e7到e9，e7到20，不固定的？怎么批量，我运行了下也没反应

果冻的心

bridgeyao 发表于 2022-5-14 01:36
看下是否满足你的需求：

Sub xiugai()

这个只能说e7到17单元格进行复制，我这可能是e7到e9，e7到20，不固定的？怎么批量，我运行了下也没反应

果冻的心

果冻的心 发表于 2022-5-14 08:30
这个只能说e7到17单元格进行复制，我这可能是e7到e9，e7到20，不固定的？怎么批量，我运行了下也没反应

下标越界提示

bridgeyao

我把附件上传了，看下能不能用。

果冻的心

bridgeyao 发表于 2022-5-14 11:31
我把附件上传了，看下能不能用。

还有一个想法就是A文件下1工作簿的表三甲e列复制到B文件下同名1工作簿的表三甲e列怎么实现

bridgeyao

请查看附件

果冻的心

bridgeyao 发表于 2022-5-14 17:40
请查看附件

其实我要实现的是A文件夹下的1-10工作簿下的表三甲E列复制到B文件夹下的1-10工作簿下的表三甲E列，文件名为了方便随意取的1-10，我觉得这个应该比较复杂把，得先获取A和B文夹下的工作簿名进行判断，工作簿名一致就复制

bridgeyao

你的需求是牙膏啊，挤一点，出一点。