求帮助:跨工作簿复制指定列到其它六个工作簿中
发布网友
发布时间：2022-04-24 03:38
共1个回答
热心网友
时间：2023-10-25 10:42
亲，听起来好复杂啊……
不知道我的理解是否正确：就是复制工作簿1的指定列，然后依次粘贴到工作簿2/3/4/5/6/7的相同列？
请问工作簿的名称就是“工作簿2”、“工作簿3"、……？都和”工作簿1“在同一个文件夹中？
代码如下。
打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。
Sub fz()Dim dInput As String
Dim i As Integer
dInput = Application.InputBox(Prompt:="请输入列号：", Type:=2)
If dInput <> "" Then
For i = 2 To 4
Workbooks.Open Filename:=ThisWorkbook.Path & "\工作簿" & i & ".xlsx"
ThisWorkbook.Sheets("Sheet1").Columns(dInput).Copy Workbooks("工作簿" & i).Sheets("Sheet1").Columns(dInput)
Next
End If
End Sub
追问
点击按钮 提示 400错误。。。。
是在同一文件夹下，路径也对。。。。
运行。。。。
提示路径错误。。。
朋友在帮忙看看。。。。。。。那里有问题。。。。加我QQ把 3820414
热心网友
时间：2023-10-25 10:42
亲，听起来好复杂啊……
不知道我的理解是否正确：就是复制工作簿1的指定列，然后依次粘贴到工作簿2/3/4/5/6/7的相同列？
请问工作簿的名称就是“工作簿2”、“工作簿3"、……？都和”工作簿1“在同一个文件夹中？
代码如下。
打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。
Sub fz()Dim dInput As String
Dim i As Integer
dInput = Application.InputBox(Prompt:="请输入列号：", Type:=2)
If dInput <> "" Then
For i = 2 To 4
Workbooks.Open Filename:=ThisWorkbook.Path & "\工作簿" & i & ".xlsx"
ThisWorkbook.Sheets("Sheet1").Columns(dInput).Copy Workbooks("工作簿" & i).Sheets("Sheet1").Columns(dInput)
Next
End If
End Sub
追问
点击按钮 提示 400错误。。。。
是在同一文件夹下，路径也对。。。。
运行。。。。
提示路径错误。。。
朋友在帮忙看看。。。。。。。那里有问题。。。。加我QQ把 3820414
热心网友
时间：2023-10-25 10:43
亲，听起来好复杂啊……
不知道我的理解是否正确：就是复制工作簿1的指定列，然后依次粘贴到工作簿2/3/4/5/6/7的相同列？
请问工作簿的名称就是“工作簿2”、“工作簿3"、……？都和”工作簿1“在同一个文件夹中？
代码如下。
打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。
Sub fz()Dim dInput As String
Dim i As Integer
dInput = Application.InputBox(Prompt:="请输入列号：", Type:=2)
If dInput <> "" Then
For i = 2 To 4
Workbooks.Open Filename:=ThisWorkbook.Path & "\工作簿" & i & ".xlsx"
ThisWorkbook.Sheets("Sheet1").Columns(dInput).Copy Workbooks("工作簿" & i).Sheets("Sheet1").Columns(dInput)
Next
End If
End Sub
追问
点击按钮 提示 400错误。。。。
是在同一文件夹下，路径也对。。。。
运行。。。。
提示路径错误。。。
朋友在帮忙看看。。。。。。。那里有问题。。。。加我QQ把 3820414
