我正在尝试将不同工作表中的数据范围复制到一个工作表中。我写了下面的代码：For i = 1 To 3Range(Cells(1, 1), Cells(1, 1).End(xlDown)).Select'line4Sheets(6).SelectSelection.PasteSpecial xlPasteValue
浏览 3提问于2014-06-22得票数 1
回答已采纳
当我尝试将范围(“A1:Q20”)中的合并单元格从工作簿的一个工作表粘贴到单元格"F20“中的另一个工作表中时，出现此错误，如下面的代码所示。With ActiveWorkbook.Sheets("Data")dataworkbook.Close
With Active
浏览 107提问于2021-02-08得票数 0
回答已采纳
这是我的脚本的一部分，简单地循环将一些行从一个工作表复制到另一个工作表：With Sheets("ATD") End If
a
浏览 2提问于2016-11-28得票数 1
回答已采纳
我正在尝试编写一个VBA宏，它将转置Excel工作簿中每个工作表上的数据(将列转换为行，将行转换为列)。 Worksheets(i).UsedRange.Copy Worksheets(i).Rang
浏览 1提问于2019-10-02得票数 0
我有一个存储了大量数据的工作簿。我正在尝试导入每周报告，将其粘贴到表中，循环导入的信息，如果行与第二个表中的问题关键字不匹配，则需要将该行复制并粘贴到第二个表中。在到达代码的粘贴部分之前，一切都会正常工作。看起来选择没有保持复制状态？我尝试了几种故障排除方法，但都不起作用。("A2", Range</
浏览 4提问于2020-07-13得票数 0
回答已采纳
我正在尝试将excel表从一个工作簿复制到另一个工作簿。当试图复制范围时，我有运行时错误1004，使用变量x标识F列中最后一个非空单元格。Sub button_click()
x = Range("F100").End(xlUp).RowWorkbooks(
浏览 0提问于2019-04-23得票数 0
回答已采纳
我试图将一个工作表的值复制到另一个工作表上的表中。如果我只是做一个“正常”的拷贝，一切都很好。但是如果我尝试做一个特别的操作，就会出现一个运行时错误'1004‘，上面写着：“Range类的pastespecial
浏览 3提问于2022-01-26得票数 0
回答已采纳
1回答
正在尝试将Excel上的透视表从一个页面复制并粘贴到另一个页面。代码可以工作，但它不粘贴格式。(9)
sh1.Range("B50").PasteSpecial Paste:=xlPasteValuesSet cop
浏览 14提问于2019-08-22得票数 2
我试图将标准4、5、8、10、11、12、13的行复制到单独的工作表(2019_Rücktrans)中。xlCellTypeVisible).CopySheets("2019_Rücktrans").Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).PasteSpecialx1PasteValuesEnd Sub
<
浏览 0提问于2019-07-23得票数 0
我编写了一个宏，根据工作表"ProjList“中的列表创建可变数量的工作表。每个工作表都是在创建时命名的。我试图将一些单元格(A列)中的值从"ProjList“复制到新的工作表中。For RowNumb = 2 To LastRow Wo
浏览 2提问于2017-12-07得票数 0
我希望将一个特殊格式/格式的行(从模板工作表中)粘贴到主工作表上正在修改的同一行上。这是我到目前为止所得到的，但是得到了一个运行时错误1004：
Private Sub Worksheet_Change(ByVa
浏览 3提问于2014-01-31得票数 2
回答已采纳
2回答
我试图使用描述的方法将多个工作表中的数据合并为一个工作表。不同之处在于，我只想从每个文件中复制一列数据，因此我修改了代码，因此： erow = .Range("B" & .Rows.Count).End(xlUp).Row("B" & erow).Offset(1, 0).PasteSpecial xlPasteValues
End With
浏览 3提问于2017-06-22得票数 0
回答已采纳
1回答
这似乎是一项简单的任务，但我总是遇到各种错误。我需要筛选工作表B，然后复制一列数据。然后，我需要筛选工作表A，然后将复制的数据粘贴到列中。" & Rows.Count).End(xlUp).Row
Selection.PasteSpecialPaste:=xlPaste
浏览 0提问于2016-09-15得票数 0
1回答
我试图按照D列中的标准过滤掉数据，并将C列中的筛选数据复制到不同的工作表中。当我在数据表中运行此代码时，此代码可以工作，但它不会运行，并给出Range类的运行时错误“1004”选择方法失败，突出显示代码的第一行。有人能帮我吗?这样我就可以在任何工作表中运行这段代码了吗？She
浏览 2提问于2016-03-29得票数 0
回答已采纳
我想通过查找E列中的所有空白条目来筛选工作簿，然后将区域复制到下一个可用行的另一个工作簿中。当我运行我的代码时，我得到一个错误‘运行时错误’1004 - PasteSpecial方法的范围类失败？？我已尝试更改空白"“的<
浏览 0提问于2019-10-26得票数 0
我想打开一本工作簿，然后从打开的工作表复制到我的工作簿上，如下所示： Dim openedFile As String sourcebook.Worksheets("source_sheet").Range("A1:L100").Cop
浏览 7提问于2016-05-24得票数 0
1回答
我的部分代码将信息从Excell中的一个工作表复制到另一个工作表。每次我运行这段代码时，最后一行代码(activeSheet.Paste)都会出现运行时错误'1004‘。有人知道怎么修吗？CopyData()
Sheets("sponsor & con
浏览 4提问于2012-12-14得票数 0
我试图将数据从带有工作表的工作簿(“每日轮班报告”)复制到另一个工作簿工作表("Sheet1")，方法是按照下面的代码转置。While Filename <> ""ActiveWorkbook.Sheets("daily shift report").Range("B71:G77&qu
浏览 4提问于2020-08-16得票数 0
我正在尝试实现一个简单的Excel宏，让用户浏览文件资源管理器中的另一个工作簿，然后将该工作簿中的某些单元复制到我的活动工作簿中。("A6:B47").PasteSpecial Paste:=xlPasteValues End If
宏用于从选定的工作簿复制单元格(B2:C43)，并将它们复制到当前工作簿的工作<em
浏览 0提问于2018-10-18得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
腾讯会议
云直播
对象存储活动推荐
腾讯云开发者
