在使用R1C1时避免复制和粘贴两个工作表-我必须停止使用"With sheetname“吗？
在使用R1C1时，可以避免使用"With sheetname"来引用工作表。R1C1是一种相对引用的方式，它使用相对位置而不是具体的工作表名称来引用单元格。这种引用方式可以在复制和粘贴工作表时保持相对位置的一致性，而无需更改引用的工作表名称。
使用R1C1引用方式时，可以通过以下步骤来避免复制和粘贴两个工作表：
- 打开源工作表和目标工作表。
- 在源工作表中选择需要复制的单元格区域。
- 使用Ctrl+C快捷键或右键菜单将选定的单元格区域复制到剪贴板。
- 切换到目标工作表。
- 将光标定位到目标工作表中的目标位置。
- 使用Ctrl+V快捷键或右键菜单将剪贴板中的内容粘贴到目标位置。
在使用R1C1引用方式时，无需使用"With sheetname"来指定工作表名称，因为R1C1引用方式是相对的，它会自动根据复制和粘贴的位置调整引用的工作表。
需要注意的是，R1C1引用方式可能需要一定的适应时间，特别是对于习惯了A1引用方式的用户来说。但一旦熟悉了R1C1引用方式，它可以提供更灵活和方便的相对引用方式，尤其在复制和粘贴工作表时能够更好地保持引用的一致性。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云官网：https://cloud.tencent.com/
- 云服务器（CVM）：https://cloud.tencent.com/product/cvm
- 云数据库 MySQL 版：https://cloud.tencent.com/product/cdb_mysql
- 云存储（COS）：https://cloud.tencent.com/product/cos
- 人工智能（AI）：https://cloud.tencent.com/product/ai
- 物联网（IoT）：https://cloud.tencent.com/product/iotexplorer
- 移动开发（移动推送）：https://cloud.tencent.com/product/umeng
- 区块链（腾讯区块链服务）：https://cloud.tencent.com/product/tbaas
- 元宇宙（腾讯元宇宙解决方案）：https://cloud.tencent.com/solution/metaverse
相关·内容
3回答
我想测试当前工作簿中的某些工作表是否存在于另一个封闭的工作簿中，并返回一条消息，说明哪个工作表/s会导致错误。
我不喜欢打开/关闭工作簿，所以我尝试在随机单元格中更改公式，以链接到filepath (fp)的工作簿，以测试工作表是否存在。
我已经用我知道在其他工作簿中不存在的虚拟工作表进行了测试，但是当我有多个导致错误的工作表时，我会得到一个“应用程序定义的或对象定义的错误”。在第二次迭代中，我相信编写错误处理的方式会导致崩溃，但我并不完全理解它是如何工作的。
我得到的密码是：
Sub SheetTest(ByVal fp As String)
Dim i, errcount As Integ
浏览 1提问于2016-06-15得票数 3
回答已采纳
我正在尝试做一个简单的复制粘贴任务的范围。我正在寻找两个excel表中标题的匹配，当匹配发生时，我会尝试将第1行以外的列复制到具有相同工作表名称的不同excel中。我可以复制粘贴完整的列，但我不想复制第一行，这是标题。敬请指教
Set Wb1 = Workbooks(Wb1name)
Sheetname = Wb1.ActiveSheet.Name
Set Wb2 = Workbooks("Worksheet2.xlsm")
'Find the last non-blank cell in row 1
l1Col = Wb1.Worksheets(Sheetnam
浏览 4提问于2018-05-04得票数 0
我目前有一个宏，可以根据一定的条件将数据从一个工作表复制并粘贴到另一个工作表。我有超过15张纸可以做到这一点。
现在我要做的是选择新工作表中的所有数据，并将其转换为表。
我知道我可以使用ActiveSheet，但我需要为每个工作表都这样做。有没有一种方法可以只选择其他工作表中的数据，而不是我的活动工作表？
我可以选择活动工作表中的所有数据，如下所示：
ActiveSheet.Range("B1:M1", ActiveSheet.Range("B1:M1").End(xlDown)).Select
我尝试了如下操作，但只选择了最后一个包含数据的单元格。如果我删
浏览 0提问于2016-11-19得票数 0
源范围P22:P35为公式。
这份文件复制了以下公式：
Sub somemodule()
Set Src = Workbooks("Abc")
Sheets("Thissheet").Select
Src.Sheets("Thatsheet").Range("P22:P35").CopyRange("Q5")
End Sub
我只想粘贴值。
我试过这个：
Src.Sheets("Thatsheet").Range("P22:P35").CopyRange("Q5"
浏览 0提问于2018-11-09得票数 0
回答已采纳
1回答
我制作了一个Excel VBA宏，它逐张工作表地遍历工作簿，如果工作表不包含透视表，它将按值覆盖它。不幸的是，在至少一个工作簿上，它花费的时间太长了，以至于我可以更快地自己浏览每个工作表。我想知道怎么做才能加快速度。有没有人能建议我需要做些什么来完成这个任务？ ' Convert entire workbook's worksheets to values
'
Sub workbook_overrideSheetsToValues_noSave()
Dim answer As Long, c As Long, ws As Worksheet, report
浏览 21提问于2019-05-10得票数 0
我已经预先格式化了从A4到O5的表头，我需要将它从隐藏设置页面复制到一个新创建的带有所有格式的表头(文本增加、列大小等)。
我这样做：
Dim WS As Worksheet
Dim SheetName As String
SheetName = TextBox1.Text
Sheets.Add.Name = SheetName
Sheets("AdminSettings").Range("A4:O5").Copy
Sheets(SheetName).Paste
Sheets("Programma&
浏览 2提问于2014-01-21得票数 0
回答已采纳
我使用下面的脚本基本上复制了现有的工作表。我要复制的工作表包含ImportRange。我不希望复制电子表格只有原始工作表上字段中的值。是否有指定插入的工作表仅插入值的方法？
function newSheet() {
var sheetName = formatDate();
var ss = SpreadsheetApp.getActiveSpreadsheet();
var templateSheet = ss.getSheetByName("MeetingTemplate");
ss.insertSheet(sheetName, 4, {template
浏览 0提问于2015-05-20得票数 4
回答已采纳
我需要帮助修改一个宏，该宏与不同工作簿中两个工作表之间的部件编号(C列)相匹配。然后将来自P9:X6500范围的原始工作表的信息粘贴到范围P9:X6500的新工作表中。C列C9:C 6500中的第一个工作表“原始”是匹配的部件编号列。“New”工作表的C列与要匹配的部件编号相同。我只想匹配并粘贴可见值。
我最初有这样的宏代码，它只将可见值从一个工作簿粘贴到另一个工作簿，我希望修改它以匹配并复制粘贴：
Sub GetDataDemo()
Const FileName As String = "Original.xlsx"
Const SheetName As String = &
浏览 1提问于2017-10-13得票数 0
回答已采纳
我在工作簿中有两个工作表(名为“Q4”和“Q4 Activites”)(名为“财务报表生成器”)，我需要将工作表复制到一个新的工作簿中。
工作表“Q4金融状况”有一个单元格公式作为='Q4 Activities'!F37 - H56 - H57
当我复制到新工作簿时，公式将更改为='[Financial Statement Generator.xlsm]Q4 Activities'!F37 - H56 - H57。
excel中是否有其他可供选择的选项，可以保留公式并将工作表复制到新的工作簿中。
我是通过宏来做拷贝的-
Dim sheetName As Vari
浏览 2提问于2017-09-06得票数 0
回答已采纳
4回答
我创建了一个foreach循环，它循环遍历Excel文件中的工作表。根据工作表的名称，将执行多个数据流任务中的一个。
这是由执行SQL任务实现的，该任务根据表中的值验证变量，并根据某些条件返回值。
由于某些原因，当工作表名称没有任何空格(例如MyTab)时，它是完美工作的，但是，当有一个空格(例如，我的Tab)时，它不正确地匹配。
我尝试根据DB表中的下列值计算工作表名称。
我的Tab$
‘我的Tab$’
‘我的标签’$
{“我的Tab$”}
我的Tab$
‘我的Tab$’
“我的Tab$”
我的Tab
MyTab$
(我的Tab$)
‘我的Tab$
浏览 0提问于2019-03-31得票数 3
我有两个要求：
1)我想以编程方式从当前电子表格中的现有工作表创建新工作表
2)我想以编程方式将一个工作表从一个电子表格复制到另一个电子表格
感谢你的帮助。
浏览 0提问于2011-09-15得票数 0
回答已采纳
是否有办法使用户在打开文件后选择从哪个工作表中复制？
我想这样做，因为可能有多个具有相同格式的工作表，但名称不同。
示例:名为VSC的原始工作簿(包含 Compare，Plot)
名为SF的辅助工作簿(包含工作表Results1、Results2、Results3)
用户单击VSC上的按钮，然后打开文件对话框，用户在某个目录中选择SF，然后要求用户选择哪个工作表--用户选择Results2工作表，复制数据(范围为“B2:b5”)，然后将其粘贴回比较工作表。
这有可能吗？我不知道怎么开始。
当前要求用户选择SF工作簿的代码：
Sub GetFilePath()
Dim objFSO as New
浏览 0提问于2018-04-26得票数 1
回答已采纳
但是我得到了错误。我尝试使用该网站提供的各种示例。但是没有一个对我有效。能帮我解决一下吗？I传递数组.So中的工作表，我将按顺序获得工作表。
我在遇到错误的地方提供了代码。我在粘贴部分遇到错误。据说它应该是A1或R1C1。但我需要将所有的工作表一个接一个地粘贴到一个工作表中。
For m = 1 To fnum
lastrow = tempws.Range("A" & ws.Rows.Count).End(xlUp).Row
ws(m).Cells.Copy tempws.Cells((lastrow + 1), 1)
Next m
tempws.Save
浏览 0提问于2013-01-16得票数 1
回答已采纳
1回答
我想把工作簿“试用版Data.xlsx”中的工作表复制到一个叫做“复制工作表”的密封工作簿上。我想保持格式(列的宽度，缩放等)，能够复制工作表，而不必打开“试用数据”工作簿，而宏似乎不这样做。
我记录的宏如下所示。
Sub worksheet_copy()
Windows("Trial Data.xlsx").Activate
Cells.Select
Selection.Copy
Windows("Copy Worksheet.xlsm").Activate
Cells.Select
ActiveSheet.Paste
End Sub
我遇到了一个以前的
浏览 2提问于2013-09-05得票数 1
回答已采纳
我正在尝试为接受输入的工作表创建一个新工作表，该工作表具有一个自定义名称。例如，我在"sheet1“中输入一个日期( 2020年6月1日)，输出结果是一个新的工作表标题”2020年6月1日“。 我当前的代码： Dim sheetName As String
Sheets("Input").Select
Range("C2").Select
sheetName = Selection.Copy
Sheets.Add After:=activeSheet
activeSheet.Name = "Week of " & sheetN
浏览 26提问于2021-06-30得票数 0
我希望有人能帮助我，我需要Excel 2013中的一个按钮来执行以下命令：
在"Sheet1“中，范围"A2:I2”被复制。
查找A2中的值以确定适当的工作表，激活该工作表，并将复制的范围粘贴到B:J范围内的下一个可用行中。
粘贴数据后，激活工作表粘贴行中A列中单元格的值将返回给用户。
例如：
当我输入Sheet1.A2“技术报告”并单击我的按钮时，它会复制Sheet1.A2:I2，然后查找称为"TEC“的工作表，激活它，并将数据粘贴到TEC.B2:I2中。
在我的" TEC“表中，我在A列中有一个预先存在的数字列表。当数据范围被复制到TEC
浏览 0提问于2015-02-25得票数 0
我想知道如何更新现有的数据透视表数据源。我使用的是Microsoft.Office.Interop.Excel，目标用户是Excel2010。
我目前可以刷新数据透视表，它工作得很好，但是当添加更多行时，我希望在数据透视表数据源中包括这些行。例如，在Excel中查看时，数据透视表的数据源是DataSourceWorksheet!$A$2:$U$26，我希望在我的更新/刷新excel文件代码运行后将其更改为DataSourceWorksheet!$A$2:$U$86 (多60行)。
以下是我的代码的简化版本
Application excelApplication = new Applicati
浏览 1提问于2011-11-22得票数 9
回答已采纳
我正在尝试将两个excel文件中的数据写入到一个文件中。当然，下面的代码只将第一个工作表中的数据写入合并后的工作表中，因为循环在写入第一个工作表中的数据时结束。我认为解决方案是保留第一个工作表中的数据，然后追加，然后写入工作表。但是怎么做呢？今天我太傻了，找不到解决方案。
import pandas as pd
xlsInPath = "some path to sheets but all have one sheet with name 2019"
xlsFiles = ['test1.xlsx', 'test2.xlsx']
sheetN
浏览 1提问于2019-12-14得票数 0
1回答
我有一个包含一些工作表的工作簿，其中第一个工作表包含一些在其他工作表上执行修改的按钮。
我注意到，当我按下这些按钮时，Excel会自动激活指定的工作表。有可能防止这种机制吗？
每次操作(单元格修改、样式设置、颜色更改、创建新工作表等等)都会触发该机制。
应用的修改示例(它们都遵循相同的模板)：
Worksheets("SHEETNAME1").Unprotect
Worksheets("SHEETNAME1").Cells(2,1).value = "cellvalue"
浏览 0提问于2019-09-10得票数 0
我有一个单元格，它是工作表中的b30 -alpha，我希望将引用作为字符串引用到剪贴板中，实际上，我希望剪贴板包含字符串'sheet-alpha'!B30。
我如何在谷歌单张中做到这一点？
浏览 4提问于2016-01-29得票数 6
目标是创建具有多个工作表的电子表格的冻结备份。备份电子表格需要复制值和格式，但不需要复制公式。
有些工作表有=IMPORTRANGE，如果先复制电子表格，然后复制同一范围内的值以消除公式，则会出现问题，因为新的电子表格需要访问函数中间导入的范围(这将导致A1中的#REF )。
这个问题已经问了很多次了，但似乎没有一个答案能解决这个问题。我看过这些问题(实际上还有更多问题)：、、、、和。我试着从这些问题的答案或这些问题的组合中实现片段，但没有结果。我测试过的每一个片段都很难追踪。
我尝试使用copyTo()在forEach函数中复制整个工作表，使用{contentsOnly:true}和{for
浏览 4提问于2019-10-07得票数 1
回答已采纳
1回答
VBA新手在用偏移量将一张纸复制到另一张表时遇到困难。
复制整个工作表是可行的，但我无法获得带有偏移量的副本，以便以同样的方式工作。
我遗漏了什么？
source.Copy ThisWorkbook.Sheets(Sheets.Count) 'works
source.Range("A12").Copy Destination:=ThisWorkbook.Sheets(Sheets.Count) 'fails
浏览 1提问于2015-11-19得票数 1
回答已采纳
1回答
我有一本有2991张工作表的工作簿。每张纸上都有关于卡车的信息。每个工作表都被命名为城市、州。例如朱诺，AK。每个工作表的格式也完全相同。
我有代码可以从每个工作簿(不包括页眉)中复制数据，并将其放在一个“组合”工作表中。
我希望扩展代码，以便在复制工作表时，将城市和州放置在新的单独的列中。例如，在Jeneau，AK，当数据被复制到每辆卡车旁边时，城市Juneau放在F列中，州"AK“放置在G列中。
我有下面列出的代码以及示例截图。
Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Workshee
浏览 9提问于2016-01-08得票数 0
回答已采纳
我使用以下代码为表单中输入的每个新名称创建了一个新工作表。
function formSheet(e) {
var sheetName = e.namedValues['Name'][0];
SpreadsheetApp.getActiveSpreadsheet().insertSheet(sheetName);
}
您可以在自动创建google工作表中的新工作表并将其命名为从google表单中填充的名称中找到有关代码的详细信息。
我可以在做新工作表时复制数据吗？我也希望将各自的名称数据复制到相应的工作表中。也可以有多个名称相同的条目，这些条目也应该被复制。
浏览 0提问于2016-06-13得票数 2
我已经设置了一个在单击按钮时运行的宏。宏会检查指定的文件夹，并将该文件夹中包含的所有工作簿中的数据提取到活动工作簿中。
代码工作得很好，但是，每个工作表中的每个新数据都会进入列，我需要将其粘贴到行中。
我已经找到了需要更改的部分，我只是不能让它像预期的那样工作。
Set mSh = mWb.Sheets("Raw Data")
' Initialize column to paste to
nxtRow = 1
' Loop through all files in the the folder
fl = Dir(fD
浏览 0提问于2019-09-24得票数 0
我是Google Appscript的新手，对这个社区的支持将是非常感谢的。使用Stakeoverflow社区上的不同帖子，我设计了一个appscript来将数据从一个工作表复制并粘贴到另一个工作表中，这是很好的(工作表中名为copy的数据粘贴在工作表中，名为had )。我还创建了一个名为触发器的工作表，并在单元格A1中创建了一个下拉列表，现在我希望每次更改此工作表中的下拉列表时都运行我的脚本。我已经检查了这个社区的不同解决方案，但是作为一个新手，我无法为我的案例设计一个完美的解决方案。下面是到工作表和我当前脚本的链接。
function Referesh() {
var ss = Spre
浏览 18提问于2022-11-16得票数 2
回答已采纳
2回答
因此，我被迫通过if IE注释使用IEs的条件样式。我一直试图在我的代码中适应它，但我发现了一些我无法解释的矛盾。
如果我像这样使用它
<!--[if IE]>
<style type="text/css">
#SomeName {
width: 100em;
}
</style>
<![endif]-->
这是行不通的。
但是，如果我将样式放在css表中并添加一个指向它的链接，它就可以工作。
<!--[if IE]>
<link rel="stylesheet"
浏览 3提问于2012-09-20得票数 0
我在excel中有两个主表和其他多个表..执行循环的->“控制表”和“目标表”
控制工作表具有要应用循环的范围(在列中)，并且该范围旁边是用于“目标工作表”的单元格引用。
目标表有一个名为"Hyp_table“的表，并应粘贴在同一”目标表“的多个位置，其引用应从控制表上执行循环的范围旁边的列中读取。
目标如下:对于控制表中Range中的每个值，如果range中的值为1，则移动到目标表，复制"Hyp_table"，并将其粘贴到执行循环的范围旁边的列中存在的单元格编号上。
我使用了以下代码，但它不起作用：
Sub Testing()
Dim rng As Ra
浏览 0提问于2017-11-17得票数 1
希望有人能帮我。
我在一个用户表单(Listbox1和Listbox2)中有两个列表框，在Listbox1中我可以获得工作簿中所有可见工作表的名称。在Listbox2中将是我在Listbox1中选择的工作表，以便复制到新的工作簿中。
Listbox1作品的填写，将图纸名复制到Listbox2作品中。我在Listbox2中选择工作表名称，然后使用以下代码将这些工作表复制到新的工作簿中。
For K = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(K) Then
Worksheets(ListBox2.List(K, 0
浏览 0提问于2019-02-27得票数 1
4回答
我创建了宏，它将刷新工作表中的所有枢轴表。相同的代码在一个工作表上工作，而在另一个工作表上不工作。我试着在调试模式下运行它，它对前几个表很好地工作，并在中间使用一个错误：
运行时错误'1004'：RefreshTable方法的PivotTable类失败。
这张纸上有20张数据透视表，但在它工作的那张表上是26张。你的帮助将不胜感激。
Sub Refresh_Pivots2()
Dim PL As PivotTable
Worksheets("Incidents Pivots").Activate
For Each PL In ActiveS
浏览 6提问于2015-12-29得票数 2
1回答
我有两个CFs在一张纸上，我想保留在复制/粘贴，你可以看到范围和公式如下。
CF1 Range : B3:H1001
CF1 Formula : =($A3<>"")*(B3="") //This one higlights the empty cells in a given range
CF2 Range : A3:R1001 // This one highlights the row if the cell in R column is No.
CF2 Formula : =$R:$R="No"
是否有办法保护这些CFs或
浏览 1提问于2020-03-01得票数 0
回答已采纳
如果我使用这种代码：
Sub CreateSheet()
Dim ws As Worksheet
With ThisWorkbook
Set ws = .Sheets.Add(After:=.Sheets(.Sheets.Count))
ws.Name = "Period"
End With End Sub
它创建一个名为"Period“的工作表。我想创建宏，当我第一次运行它时，它会创建名为"Period 1“的工作表。在第二次，它将创建“周期2"，等等，所以只有一个工作表/运行。
我该怎么做？提
浏览 0提问于2018-05-05得票数 1
我有一个对谷歌工作表的查询，正如我所期望的那样。我使用邮递员进行测试，因为我的应用程序- which是一个桌面应用程序，我不能使用谷歌提供的任何SDK。这不是一个网络应用程序，所以我甚至不能使用托管在谷歌CDN上的Javascript源代码。在任何情况下，我都是在查询有许多行的电子表格，其中有一个特定的列，我正在查询该列：
在通过OAuth2方法检索身份验证令牌之后，我将使用以下端点：
https://docs.google.com/a/google.com/spreadsheets/d/{{sheet_key}}/gviz/tq?sheet={{tab_name}}&tq={{she
浏览 2提问于2020-02-01得票数 1
回答已采纳
1回答
运行时错误2147417848-80010108对象工作表的方法粘贴失败。
当我在两个桌面上同时打开该文件时，开始出现此错误。然后，每次我运行代码时，它都会发生。代码真的很大，所以不能粘贴在这里。我只会粘贴出现问题的行
rrr=4
set rng1 = worksheets(2).range("x1:cd1").find(format(date,,xlvalues,xlwhole)
If not rng1 is nothing then
Worksheets("--").activate
Worksheets("--").cells(rrr,rn
浏览 1提问于2018-03-10得票数 0
我正在尝试在谷歌电子表格和应用程序脚本中创建一个小程序，用于抓取用户搜索的youtube视频的查看数据。当用户键入搜索查询时，应从模板工作表中复制新工作表，并根据查询进行自定义。我遇到的问题是，当用户快速地连续输入多个查询时，脚本会转储模板工作表的多个副本，并将它们命名为“模板副本1”、“模板副本2”等等，而每个工作表的名称应该是"KW：“+其关联的关键字。我怀疑这是因为函数复制并重命名了一个工作表，但如果一个函数的两个或更多实例几乎同时尝试执行此操作，则它们会以同一个工作表为目标，从而导致错误。
这是我尝试的结果：
function main(e){
//spreadsheet=
浏览 0提问于2018-04-09得票数 0
我想做这样的事：
For i = 1 To 10
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(THIS VALUE,'IN THIS TABLE RANGE,i,FALSE)"
Next i
我想将i的值传递给要查找的列值。
浏览 6提问于2017-02-01得票数 1
回答已采纳
1回答
我已经找到了下面的VBA，它可以工作，但它拉出一个单元格的值，我正试图更改其名称，然而，我正在寻找的是引用一个主表或一个特定的工作表中的单元格比方说Sheet1，需要在下面的VBA中进行哪些更改才能从Sheet1而不是活动工作表中拉出A1？
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("A1")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target,
浏览 3提问于2021-09-18得票数 0
3回答
我正试着在3个工作表中对3张表进行排序。我已经使用了宏记录工具，并提出了这些代码。但是我不能让它运行。会非常感谢你的帮助。
ps:我该如何在这个论坛上正确地发布代码？我在下面发布的代码看起来一团糟。
Sub SortTable_Click()
Dim sheetList
sheetList = Array("AAA", "BBB", "CCC")
Dim sheetName
For Each sheetName In sheetList
SortSheet ThisWorkbook.Sheets(sheetName)
Next sheetName
浏览 0提问于2020-11-28得票数 0
回答已采纳
我使用以下脚本复制、重命名和用纯文本替换公式。它工作得很好，但我想在纯文本中转换特定范围的源表("A1:N11")，而不是整个新创建的工作表。原页仍应有未触及的公式。
我希望有人能帮我..。
谢谢!
function copyrenamevalueonly() {
const sheetName = "VUOTO";
const ss = SpreadsheetApp.getActiveSpreadsheet();
const sheet = ss.getSheetByName(sheetName);
const myValue
浏览 7提问于2022-10-26得票数 0
2回答
我有一本有6张工作表的工作簿。我希望将工作表1和2的值(而不是公式)保存在2个外部文件中。
试过这个：
Worksheets("Sheet1").Copy
With ActiveWorkbook
.SaveAs Filename:="D:\sheet1.xls", FileFormat:=56, CreateBackup:=False
End With
Worksheets("Sheet2").Copy
With ActiveWorkbook
.SaveAs Filename:="D:\sheet2.xls", FileForm
浏览 0提问于2019-06-25得票数 0
回答已采纳
我正在尝试使用合并功能将具有相同模板的多个工作表(名称为apples和oranges)汇总到一个主模板中。
ConsolidateRange是要在合并中使用的选项卡名称和范围。
Master是我试图将总和输出到的工作表的名称。
为了做到这一点，请参见下面我尝试使用的代码：
ConsolidateRange = "apples!R1C1:R37C6, oranges!R1C1:R37C6"
Worksheets("Master").Range("A1").Consolidate _
Sources:=Array(Consolida
浏览 5提问于2017-02-09得票数 0
回答已采纳
3回答
我在一个电子表格中有许多工作表。我有2张图纸，我想每次导出。第一张表是一张包含信息的表。第二张表是我需要提供给客户的表，它从第一张表中提取参考。
目前，我创建了一个新的临时电子表格，将工作表一复制到新电子表格，然后将工作表二复制到临时电子表格。之后，我将临时电子表格转换为pdf。然后，我删除了临时电子表格，并将pdf保存到Google Drive的一个文件夹中。
创建的PDF包含两个页面的两个页面。我只需要第二张纸。如果我只传输工作表2，工作表就会留下很多#REF错误，因为工作表1不在那里。有没有办法只导出工作表2而不出现#REF错误？
下面是我的代码：
//create a temporar
浏览 3提问于2016-07-13得票数 6
回答已采纳
目标：
将特定工作表作为唯一CSV文件保存在工作簿中
条件：
从包含特定工作表和无关工作表的工作簿中保存特定工作表(复数)(例如，在20个可用工作表中保存特定的10个工作表)
将当前日期插入CSV的文件名，以避免覆盖当前保存文件夹中的文件(此VBA每天运行)
文件名语法: CurrentDate_WorksheetName.csv
我已经找到了VBA代码，它可以让我半途而废。它保存工作簿中的所有工作表，但文件名与当前日期不动态。
当前代码：
Private Sub SaveWorksheetsAsCsv()
Dim WS As Excel.Worksheet
浏览 8提问于2015-06-09得票数 1
在excel中，我试图将文本从一个单元格复制到另一个工作表中的另一个单元格中。源单元格包含格式化文本(粗体、下划线、不同颜色)。但是，当我使用VBA将文本复制到另一个单元格时，格式将丢失。
我知道这是因为excel只是在复制文本值。我们是否可以从单元格中读取HTML文本(而不是纯文本)？
我在谷歌上搜索过这个，没有得到任何答案。我知道，如果我们使用复制和粘贴方法，我们可以复制格式。例如。
Range("F10").Select
Selection.Copy
Range("I10").Select
ActiveSheet.Paste
，但我不想复制和粘贴，因为我的
浏览 9提问于2012-08-07得票数 8
回答已采纳
1回答
我正在使用VBA在excel中创建一个动态的工作表目录，我想动态地调整它的大小。如果添加了新数据，它确实会调整大小，但如果删除数据，则不会调整大小。这是我的代码：
Sub update_directory()
Application.ScreenUpdating = False
Range("Directory").Select
Selection.ClearContents
Range("AA1").Select
ActiveCell.Formula2R1C1 = "=TRANSPOSE(SheetNames)"
Sheet1.Calculat
浏览 8提问于2022-07-17得票数 0
回答已采纳
我有一个工作表，其中A列有许多术语。我想搜索两个术语，例如术语A和术语B，然后复制这两个术语之间的所有行，并将其粘贴到一个新的sheet.These中，这两个术语可能在该列中重复。我主要面临的问题是:当我运行我的代码时，它还复制了术语B和术语A之间的行，这是不必要的。以下是我对术语A和术语B使用的代码。例如，我的列A是
学院活动工作计算机笔记本电脑数字活动数字格式计算机
还有更多的术语，我想复制术语A: Event和术语B: Laptop之间的所有行，并将其粘贴到新的工作表中。我的代码所做的是在事件和计算机的所有组合之间复制行。甚至计算机和事件之间的行也会被复制(在本例中是Figure和lap
浏览 3提问于2012-07-05得票数 2
1回答
我试图编写VBA代码，以便将一个工作表中的行剪切/复制到一个新的工作表中，只要H列包含我指定的任何值。
当我只设置一个值时，我所拥有的当前代码可以工作，但我希望只要我指定的任何值都在单元格中，代码就会执行。请告诉我，谢谢。
Sub CutPastebyAM()
Dim sht1 As Worksheet, sht2 As Worksheet
Dim i As Long
Set sht1 = ThisWorkbook.Worksheets("Data")
Set sht2 = ThisWorkbook.Worksheets("Sheet1")
For i =
浏览 0提问于2018-12-07得票数 0
回答已采纳
我在一个Excelfile中有10个工作表，在最后一个工作表中，我希望在一个单元格中获得每个工作表的名称。
让我们说，第一页被称为“黑色”。我希望这个单张的名字出现在第10页的一个单元格中等等。
如何才能将单张名称放入带有函数的单元格中？
浏览 3提问于2014-10-15得票数 0
回答已采纳
我有一个工作簿，有一个‘主工作表’工作表，所有产品都被输入和更新，和‘舞台工作表’工作表编号1-24。例如：“第一阶段”、“第二阶段”等
我想有一个宏，清除所有的舞台工作表，然后再进入(我已经有一个宏，为这部分)的相关产品，从主表。我一直在努力让它遍历这么多工作表，然后必须为每个工作表找到最后一行。
每个工作表都需要从第10行清除到最后一次使用的row.Last用行，可以使用A列来确定。
浏览 3提问于2017-02-13得票数 0
回答已采纳
1回答
我有两张床单
Sheet1
和sheet2
我想要做的是，每当一行从sheet1复制到sheet2 (即从单元格A到F的值)时，逐个复制工作表1到工作表2中每一行的值。单元格G2和H2 (在sheet2中)从其他工作表中获取值(基于多个不同的公式、筛选函数、pivit表等)，当我获得工作表2中更新的值时，我希望将值从G2和H2复制到工作表1中的相应行中。
基本上我想使用sheet2作为一个自定义函数，其中单元格A2、B2、C2、D2、H2、F2是输入，单元格G2和H2是输出。
我试过使用宏，但需要的是绝对引用和相对引用的结合，这似乎是不可能的。
我正在手动执行的过程的gif
浏览 1提问于2022-07-31得票数 2
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
