excel里如何做到将其他文件的整个工作表添加到指定位置

发布网友发布时间：2022-08-12 03:42

我来回答

共2个回答

热心网友时间：2024-12-03 13:36

1.如果您是想在D单元格插入（也就是原来的E列，4行以外的数据不变，只是被移动到其他列，其他行）那么告诉您，只靠函数是不可能实现的。至少您需要手动添加行和列。

2.如果是覆盖该区域，只靠一个单元格的函数也无法解决，必须右拉和下拉公式。这是公式本身的局限。

附用于右拉，下拉公式

='C:\[123.xls]Sheet2'!A1

3.想要一劳永逸的解决，只按一次。只有用VBA（宏）

附VBA代码。按Alt+F11进入vba界面。按Alt+i+m插入模块后复制代码，按F5执行即可。

Sub insertData()
Set excel_Book = Workbooks.Open("C:\123.xls")
xcel_Book.Visible = False
Set excel_sheet = excel_Book.Worksheets("Sheet2")
'代码默认为覆盖。 _
以下这部分是用于插入行列，如果您不是覆盖数据 _
请先使用以下代码?目前是注释状态不会生效
'Columns("D:K").Select
'Selection.Insert Shift:=xlToRight
'Rows("1:80").Select
'Selection.Insert Shift:=xlDown
For i = 1 To 8
    For j = 1 To 80
        ThisWorkbook.ActiveSheet.Cells(j + 2, i + 3) = excel_sheet.Cells(j, i)
    Next i
Next j
excel_Book.Close False
Set excel_Book = Nothing
Set excel_Sheet = Nothing

End Sub

热心网友时间：2024-12-03 13:37

使用鼠标拖曳功能可以实现。
步骤如下：
1 对需要插入图表的部分留白，不要有文字。
2 用鼠标拖曳图表到留白的位置，不遮挡文字。
这样就可以把图表放到需要指定的位置了。