Excel工作表不能移动或复制?看看是不是这两个原因

Excel工作表不能移动或复制?今天来看看如何解决。

大家都知道,Excel表格分为工作簿和工作表,工作簿就是整个Excel文件;工作簿里面,也就是Excel表可以有多个工作表。

而各个工作表之间是可以相互移动或复制的,不同工作簿之间的工作表也可以移动或复制,如果不能操作,可以看下是不是以下两个原因造成的,也就能知道解决方法了。

原因一:Excel工作簿没有同时打开

如果是两个Excel表格,想要复制或移动其中一个的工作表到另一个工作簿,需要同时打开两个Excel表。

比如,想把Excel“表格2”的“SheetA”工作表移动复制到“表格1”中,需要先把两个Excel同时打开。

 

 然后在“表格2”的“SheetA”那里用鼠标点击右键,选择【移动或复制】选项。 

 

弹出对话框后,点击【工作簿】选项右侧的箭头下列表,要移至哪个工作簿就选择哪个。(Excel打开了,才能在这里显示出来)

 

选择好后,还可以在【下列选定工作表之前】的选项里选择移至新的工作簿后,工作表放在哪个位置。

如果需要复制并移动工作表,请勾选【建立副本】;只移动的话,就不需要勾选。

 

完成以上操作后,工作表就移动到新的工作簿的指定位置了。 

 

原因二:Excel表格的工作簿被设置了“限制保护”

Excel表格可以设置“保护工作簿”,设置后无论是单个Excel表,还是多个Excel之间的各个工作表都不能随意编辑变更。

如下图,单个Excel表中,要编辑各个工作表,会发现不仅无法“移动或复制”,就连删除、插入新的工作表,重命名等一系列操作都无法选择,选项都是灰色状态无法点击。

 

两个Excel表,只要有一个表格设置了“限制保护”,也是无法进行“移动或复制”的,在操作过程中会弹出对话框,提示【工作簿有保护,不能更改】。 

 

所以,如果出现以上情况,我们需要把Excel表格的“限制保护”解除,工作簿才可以“移动或复制”

那怎么去除限制呢?在Excel表的菜单目录中选择【审阅】列表中的【保护工作簿】,弹出对话框后,在密码栏输入原本设置的密码。Excel工作簿的保护就解除了,也就可以进行各种编辑了。

 

如果忘记密码要怎么解除Excel工作簿的“限制保护”呢?Excel表格中并没有“忘记密码”选项,在没有密码的情况,我们不妨借助其他工具,比如 百事牛Excel密码恢复工具,可以直接去除Excel工作簿的“限制密码”。

百事牛Excel密码恢复工具icon-default.png?t=N176https://passneo.cn/product/passneo-for-excel.html在工具中,选项【解除限制】模块,导入Excel表格即可。

 

 

 

 

 

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
下面是一个示例代码,演示如何使用VBA将两个工作中的数据筛选后复制到一个新的工作中: ``` Sub FilterAndCopy() Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet Dim lastRow1 As Long, lastRow2 As Long, lastRow3 As Long Dim i As Long, j As Long '获取需要操作的三个工作对象 Set ws1 = ThisWorkbook.Worksheets("Sheet1") Set ws2 = ThisWorkbook.Worksheets("Sheet2") Set ws3 = ThisWorkbook.Worksheets("Sheet3") '获取两个原始工作的最后一行 lastRow1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row lastRow2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row '清空目标工作 ws3.Cells.ClearContents '复制第一个工作中满足条件的数据到目标工作 j = 1 '目标工作的行数 For i = 1 To lastRow1 If ws1.Cells(i, 2) = "条件1" And ws1.Cells(i, 3) > 10 Then ws1.Rows(i).Copy ws3.Rows(j) j = j + 1 End If Next i '复制第二个工作中满足条件的数据到目标工作 For i = 1 To lastRow2 If ws2.Cells(i, 2) = "条件2" And ws2.Cells(i, 3) < 20 Then ws2.Rows(i).Copy ws3.Rows(j) j = j + 1 End If Next i '自适应调整目标工作的列宽 lastRow3 = ws3.Cells(Rows.Count, 1).End(xlUp).Row ws3.Cells.EntireColumn.AutoFit End Sub ``` 在上面的示例代码中,我们首先获取了需要操作的三个工作对象,然后通过Cells函数和End(xlUp)方法获取了两个原始工作的最后一行。接着,我们清空了目标工作,然后依次遍历两个原始工作中的每一行,筛选出满足条件的数据,并使用Copy方法将其复制到目标工作中。最后,我们使用EntireColumn.AutoFit方法自适应调整目标工作的列宽。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值