如何使用VBA将值和格式复制并粘贴到新工作表中
VBA（Visual Basic for Applications）是一种用于自动化任务和宏编程的编程语言，它可以与Microsoft Office应用程序（如Excel、Word和PowerPoint）进行集成。使用VBA可以实现将值和格式复制并粘贴到新工作表中的操作。
以下是使用VBA将值和格式复制并粘贴到新工作表中的步骤：
- 打开Excel，并按下Alt + F11打开VBA编辑器。
- 在VBA编辑器中，选择插入菜单中的模块，以创建一个新的模块。
- 在新模块中，编写以下VBA代码：
Sub CopyAndPasteValuesAndFormats()
Dim sourceSheet As Worksheet
Dim targetSheet As Worksheet
' 设置源工作表和目标工作表
Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
Set targetSheet = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))
targetSheet.Name = "目标工作表名称"
' 复制源工作表的值和格式到目标工作表
sourceSheet.Cells.Copy
targetSheet.Cells.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
' 清除剪贴板内容
Application.CutCopyMode = False
End Sub请注意，你需要将代码中的"源工作表名称"替换为实际的源工作表名称，将"目标工作表名称"替换为你想要创建的目标工作表名称。
- 在VBA编辑器中，按下F5运行代码。这将创建一个新的工作表，并将源工作表的值和格式复制到新工作表中。
这是一个简单的使用VBA将值和格式复制并粘贴到新工作表中的示例。你可以根据实际需求进行修改和扩展。
相关·内容
3回答
我有一本工作簿，里面有5个全是UDF (用户定义的函数)的工作表。
我需要将这5张工作表复制到一个新的工作簿中，但我只需要这些值。
问题是，当我复制这些工作表时，所有带有UDF的单元格都会被#value破坏，因为我在这个新的工作簿上没有宏。
我无法复制该模块，因为许多用户将使用此工作簿，也许他们的Excel将不允许我操作vba project。
我试着在工作簿之间复制和粘贴值，但是它不起作用。我认为这是因为我的工作表有许多合并的行和列。Excel显示错误消息。这里我将从葡萄牙语翻译成英语，也许Excel并没有使用这个工作方式：
此选项要求合并的单元格大小相同。
我不明白这个错误。我甚至
浏览 3提问于2014-08-22得票数 3
回答已采纳
1回答
我有一个简单的缺勤时间表文件，在表格数据B列中有一些同事的名字(在本例中是字母)。在sheet列C中，这些名称再次出现(如果在工作表数据列C中选择了1)，但这不是重点。
问题:这些名称有时必须进行排序(当新的名称出现时)，但是sheet JAN中的数据验证列不与它们排序(请参阅行中的颜色)我不想使用VBA，因为我不知道，所以希望有一个公式解决方案(在数据验证中使用公式吗？带有间接的东西
希望有人帮不了我。
如下图所示，左边是填写了一些名称的数据表，右边是用IF公式显示这些名称的JAN工作表，当我们对数据表中的名称进行排序时，它们也将在JAN SHEET中进行排序，但是JAN SHEET中的数
浏览 2提问于2017-05-17得票数 1
3回答
Excel Vba宏插入十进制数
、、、、
在我的excel工作表中，如果我尝试在单元格中插入一个像3.4这样的十进制数，将出现的数字是3.4。但是如果我尝试通过vba宏来插入相同的数字，出现的数字是3,4。这是我的代码。
Sub insertData()
Dim valore as String
valore = "3.4"
Cells(1, 1) = valore
End Sub
如何解决这个问题？谢谢
浏览 4提问于2015-07-29得票数 0
我有一个Excel文件，它使用VBA计算几个工作表的活动范围，以生成一个.csv文件，由报表服务器获取。
每隔一段时间，打开文件就会抛出一个“无法找到项目或库”作为异常。单击之后的任何内容都会导致Excel崩溃。
也有人提出了类似的问题。我不能使用任何解决方案。
：这个解决方案要求我找到VBA引用，并取消检查缺少的引用。
失败，因为在消息出现后，无法单击任何内容。所以我不能去看推荐信。
：这并没有改变。
：这没有给我任何错误消息
重新安装Office
在另一台计算机上的使用:这可以工作一段时间，但经过几次使用之后，就会显示出相同的行为。
更多的背景：我从一个用户那里继承了这个文件，他对频繁的崩
浏览 0提问于2018-05-14得票数 2
我试图复制所有在其中有组的单元格，并将其粘贴到另一个工作表中。到目前为止这是我的密码。但我一直有个438错误。我对vba非常陌生，所以任何帮助都将受到感谢。
Sub FindAndExecute()
Dim Sh As Worksheet
Dim Loc As Range
For Each Sh In ThisWorkbook.Worksheets
With Sh.UsedRange
Set Loc = .Cells.Find(What:="GROUP*")
If Not Loc Is Nothing Then
浏览 0提问于2019-03-27得票数 0
回答已采纳
我正在编写一个宏，它将根据表中的一些数据自动创建图表。但是，我需要使用的图表格式非常复杂(20列数据都以特定的自定义格式显示)，我不知道如何使用图表编辑器重新创建该格式，更不用说VBA了。
基本上，我希望能够以这种图表格式为例，以某种方式获得用于在VBA中直接创建这种格式的图表的VBA代码，这样我就可以在宏中包含此代码。
我正在考虑制作一个图表模板.crtx文件，并在用户下载它时将其与电子表格一起包含在.zip中，但是模板似乎只有在它们位于User\AppData\Roaming\Microsoft\Templates\Charts下时才能工作，我不想让用户不得不手动移动该文件才能使宏工作。或
浏览 1提问于2018-06-01得票数 0
我需要编写一个VBA代码来将一个excel工作表的页眉/页脚中的公司徽标复制到另一个工作簿中的另一个工作表。有什么想法吗？
浏览 5提问于2009-06-02得票数 2
我一直在研究将文件夹中的第一个工作表复制到另一个工作簿的VBA代码。
代码正确地复制了数据，但在保存时，我得到了某些有错误的单元格(#Ref)，这是由于某些复制的单元格具有公式。
我希望复制到的数据保留原始格式，但仅具有值。或者，有两个错误的单元格是具有索引匹配公式的M11和O11，如果这两个单元格的值可以在没有公式的情况下粘贴，则复制的其余数据将很好。
任何帮助都将不胜感激。
我试过使用PasteSpecial xlPasteValuesAndNumberFormats和.PasteSpecial xlPasteFormats，但我不确定如何修改复制功能。
Sub MergeMultiple
浏览 0提问于2018-12-30得票数 2
我是一名飞行员，使用名为Logten Pro的日志程序。我有能力从我的工作航班管理软件中保存excel电子表格，并使用CSV格式将它们导入Logten Pro。
然而，我的问题是，工作航班管理软件将航班起飞日期和时间导出到一个单元格中，格式如下: DD/MM/YYYY H:MM:SS PMExcel可以很好地处理这一问题，并且默认情况下格式化为DD/MM/YY，尽管实际值更为具体，由全长日期和时间组组成。
这是一个问题，因为Logten Pro只有在日期为DD/MM/YY格式时才会自动导入日期，并且没有办法仅提取显示的DD/MM/YY日期而不是完整的日期时间组实际值，除非您手动浏览并删除函数框
浏览 22提问于2012-01-13得票数 8
如何将整个Excel扩展表按值快速复制到另一个Excel扩展表？以及如何通过值将Excel扩展表的某些页快速复制到另一个Excel扩展表中？不使用VBA ()。
例如:假设我有一个名为Excel_A的扩展表，它包含多个表和许多公式。我想快速复制Excel_A的所有值。我想避免把一张一张地复制到另一张纸上，因为它太慢了，而且Excel_A中有很多张。
浏览 2提问于2017-04-05得票数 0
回答已采纳
这个问题看似微不足道，但我找不到解决方案，这是我在使用Excel 2010时遇到的一个主要工作流程障碍：
假设您有两个Excel工作表，工作表A有1000行，工作表B大约有50行。您希望将所有50行从工作表B复制到工作表A，以便新行位于顶部(！)表A的数据，但不覆盖表A中的现有数据。
为此，您必须首先在工作表A的顶部添加50行(包括仔细检查以确保您有50行而不是49行)，然后将您的50行从工作表B复制粘贴到工作表A(指向第1行)。这是可行的，但它既耗时又令人紧张。
如果不先添加50个空行，这50个新行将覆盖表A中的现有数据。
人们可能会认为，一定有一种方法可以告诉Excel在工作表A的现有内容
浏览 5提问于2015-12-12得票数 11
我正在尝试从6个不同的工作表中提取公司的唯一名称，并将它们汇编成一列，供以后在矩阵中使用。每个公司名称列表都在每个工作表的G栏中。
到目前为止，我已经在VBA中生成了一个宏，用于提取一个工作表的列的唯一名称，但现在我正在尝试将这些工作表格式化为一个数组，即: Array = (Sheet1，Sheet2，Sheet3...)并在列G上针对阵列中的每个工作表运行高级过滤器。下面是单列唯一值的代码：
Sub AdvFilter() ' ' AdvFilter Macro
' Select first cell in column (Sheet1!A2)
R
浏览 0提问于2019-07-22得票数 0
1回答
在我开始之前，我知道所有这些都可以通过SQL查询来完成。只要相信我的话，当前正在构建一个active directory，但现在我所拥有的是：
一个大约30k行、大约25列的excel电子表格，其中包含一个项目列表，使用项目#作为1级匹配。让我们称它为“主表”。
作为唯一标识符的item #可以出现多次，即：
项目# 10000可以在此工作表中多次出现。
因此我创建了一个动态数组，并使用以下命令将整个主表插入到数组中
Sub Items()
Dim Items() As Variant
Sheets("Master").Activate
Items = Ran
浏览 4提问于2016-08-26得票数 2
1回答
我已经很长时间没有使用过VBA了(而且我一开始就不是很擅长它)，所以尝试自己解决这个问题会花费更长的时间，这是不明智的。
我有几个工作簿，每个工作簿大约有11或12个工作表。工作表上的某些单元格包含数字，并且已使用删除线设置了格式。我需要一个脚本来遍历每个工作表，并更改每个单元格，其中包含一个数字，已坚持通过(？)设置为负数。有人愿意在这件事上帮忙吗？
谢谢
浏览 1提问于2017-05-08得票数 0
我有一个列A与‘空单元格’或‘数字存储为文本’。我需要得到“空单元格”或“数字值”来创建一个图形。
我通常做的是使用=IF(A1<>"";cnum(A1);"")创建第二列。但是图形显示"“为0，所以我需要去掉"”值。复制，然后在Excel中的过去评估不做这项工作。
我经常动态地重新创建一个小的VBA代码来实现这一点(For each cell in Range() IF cell.value ="" THEN cell.ClearContents...)。效果很好。但使用VBA似乎有点过分。
有时，我只需复制范围，将
浏览 3提问于2015-10-01得票数 3
回答已采纳
我最近刚升级到Office 2021 (教授)。加上LTSC)，每当我在Excel上打开VBA编辑器时，它都会在几秒钟后崩溃。此外，当我尝试用宏打开任何工作簿时，我会得到以下消息：
“我们发现一些内容有问题.您想让我们尽可能多地恢复吗?如果您信任此工作簿的来源，请单击”是“
当我单击“是”时，删除的内容总是VBA项目“/xl/vbaProject.bin”。它发生在我打开的任何启用宏的文件中。
它也发生在我创建的任何启用宏的新工作簿中。
我尝试重新安装Office 2021并启用任何工作簿中的所有宏。我想这与VBA代码无关，而是与excel或windows 10中的一些配置有关。
我还能去哪儿
浏览 12提问于2022-05-03得票数 1
我有一个现有的sharepoint列表命名(Emp DB)，它包含以下字段
EmpID：
Emp名称：
主管：
emailID：
联系方式：
我希望经常从excel工作表中将项目添加到上面的列表中，其中包含与列相同的字段。需要VBA编码..。
对此的任何帮助都是非常感谢的.
浏览 4提问于2017-10-01得票数 0
我想做的等同于在工作表中选择一个单元格，按F2，然后按CTRL+V，这样所有的格式，如项目符号、粗体字符和隔断线都会被保留并粘贴到一个单元格中。请注意，我不是从excel表格中复制，而是使用excel vba从Word文档中复制。
我试过了：
Sheets(1).Cells(1,1).Select
SendKeys "{F2}", True
SendKeys "v", True
Application.Wait(Now + TimeValue("0:00:5"))
Sheets(1).Cells(1,2).Select
但是上面的代码粘贴在活动工
浏览 3提问于2015-06-30得票数 0
1回答
我的工作表上有几个条件格式，我不希望用户清除它们。工作表保护似乎没有这样的设置，我在互联网上也没有找到任何答案，即使是用VBA。
我怎么做才能禁止用户触摸条件格式？
浏览 2提问于2016-10-04得票数 0
2回答
我设计了一个Excel 'Master‘工作表，在它后面的单独W/S上连续几个月(即Master，jul2013，aug2013等)。我想插入一个IF语句，它执行以下操作：
从母版中的单元格E2中查看' Master‘B2，如果B2 = say 'aug2013’，则转到工作表'aug2013‘，并带回’单元格B102‘的内容。
在主工作表上，这将需要在下一个单元格中重复(即E3检查B3，转到相应的工作表，并检索单元格B102)。
我已经尝试了多个if语句，但没有太多的运气。
VBA会有帮助吗？
任何想法都非常感谢！
浏览 1提问于2013-08-22得票数 0
我和VBA、excel和word一起工作。我从Excel复制数据表(数据从数据库中加载)并粘贴到Word.When中，我在Excel.How中更新值以刷新Word中的数据
Excel
Word
当我更新值Password2 -> Password3时，我希望当我单击word中的命令按钮时，数据将在word中更新
谢谢！
浏览 4提问于2014-09-08得票数 0
过滤器在我的例子中不起作用，因为我拥有的数据将一直在变化(有时它会有很多名字，有时它可能只有几个名字)。 我有两张床单。1从在线来源导出12个月的数据，以及另一个工作表，其中创建了一个透视表，其中所有名称都以月份分隔。 我的意思是，我知道如何找到唯一值并将其复制到另一个位置，但我不知道如何才能获得所需的结果。 我需要一个每月第一次出现的受益者名字的表格，但名字也需要按月份分开。但是，每个月的值需要与前几个月进行比较，而不是直接/仅与所有12个月的数据进行比较。 我不确定是否需要使用数据表，或者是否可以从具有按月名称的透视表中进行。 您可以在图像中看到我需要获得的结果 我对如何实现这一点一无所
浏览 7提问于2020-04-20得票数 0
回答已采纳
我粘贴了部分代码，如下所示。这段代码是解析从HTTP请求中获得的JSON字符串，根本没有任何工作表/工作簿操作。在office升级到office365 ProPlus之前，它是相当高效的。但在升级后，一个可以在2秒内解析的json需要几分钟的时间。就我个人而言，我不明白根本原因。 代码来源：@Tim Hall https://github.com/VBA-tools/VBA-JSON/blob/master/JsonConverter.bas ' ============================================= '
' Public Meth
浏览 153提问于2019-08-27得票数 3
2回答
我正在尝试获取特定单元格的值，然后将其粘贴到我的工作表中。
这个值是一个日期，May 2014，但在Excel中显示为May-14。
我怎样才能得到准确的单元格内容，而不会被Excel搞乱？
因为当我尝试引用单元格内容来激活工作表时，它找不到May-14，因为它被命名为May 14。
浏览 11提问于2014-08-09得票数 0
假设我有以下示例表：
Country Year
USA 2010
USA 2010
USA 2010
Australia 2011
India 2010
China 2010
Output should be:
2010: 3 (USA, India, and China)
2011: 1 (Australia)
2012: 0 ()
我正在尝试统计某一年中独特的国家数量。
我在如何让嵌套的条件计数工作时遇到了麻烦。
任何帮助都将不胜感激。我不能使用VBA，我必须使用本地excel函数或数据透视表。
浏览 0提问于2014-04-04得票数 2
我正在使用下面的VBA在特定条件下将行从一个工作表复制到另一个工作表。我现在有了一个新的Excel，我想在其中重用它，但是这一次我想在列C5而不是A5开始粘贴。我知道您可以指定.cells，但这在这里并不像我想象的那么简单。
任何帮助都是非常好的:)
Sub CopyRows()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
Set RAW = Worksheets("RAWdata")
Set Closed = Worksheets("RAWclosed")
With RAW
ZeileMax =
浏览 1提问于2018-08-17得票数 1
回答已采纳
1回答
需要使用VBA从我的工作簿中导出和导入工作表。
做这件事最简单的方法是什么？
是否导出为CSV？
是否导出为txt？
是否可以将对象(复制/粘贴对象)保存到文件中，然后导入该对象
浏览 2提问于2011-10-12得票数 2
回答已采纳
我对VBA编程非常陌生。我写了一个代码，我在我的笔记本上运行了它，它工作了，但是一旦我尝试在另一台笔记本上运行它，它就不工作了。我在另一台笔记本上安装了谷歌铬，selenium也安装了。VBA引用被设置为相同。在selenium和google中，chromedriver.exe被替换为与我以前笔记本使用的chromedriver.exe相同的位置。但是当我开始运行代码时，它就不起作用了。按屏幕截图显示自动化错误。
以下是代码：
Dim IE As Object
Dim Element As Object
Dim classElement As Object
Dim CD As New
浏览 5提问于2022-08-04得票数 0
回答已采纳
假设在WinForms应用程序中设置了以下内容：
Dim ExcelApp As Microsoft.Office.Interop.Excel.Application
Dim ExcelWorkbook As Microsoft.Office.Interop.Excel.Workbook
Dim wksDataVals As Microsoft.Office.Interop.Excel.Worksheet
ExcelApp.Visible = False
基本上，我在后台运行了一个不可见的Excel实例，其中打开了一个名为ExcelWorkbook的工作簿，还有一个应用程序正在操作的名为wk
浏览 3提问于2012-11-13得票数 1
回答已采纳
我正在努力做到以下几点：
Sheet1:用户单击运行VBA的按钮。
Sheet2: VBA选择D列上的第一个非空白单元格
范围(“D”& Rows.Count).End(xlUp).Offset(1).Select
Sheet1: VBA复制一系列值
工作表(Sheet1).Range(“E2:AJ11 11”).Copy
Sheet2: VBA将复制的范围粘贴到先前选定的活动单元中。
--我试着粘贴到活动单元格中的这个部分不起作用：
Worksheets("Results").ActiveCell.PasteSpecial xlPasteVal
浏览 3提问于2017-10-27得票数 0
回答已采纳
我正在寻找一个简单的解决方案，可以将包含一个加载的Power数据表的单个工作表导出到一个新的工作簿中，而不需要底层连接和查询。
我认为微软改变了Excel2019中有关Power (ListObject)的行为以及它们在副本之间保存连接的方式。以前(Excel 2016)在创建包含该表的表或工作表副本时，只会保留值和格式，现在Excel还会重复刷新该表所需的所有查询和连接。我不想那样-我不想向我发送数据的任何人公开Power查询代码。
以前，我可以使用以下简单代码：
Dim SourceWb As Workbook
Dim SourceSh As Worksheet
Dim TargetWb
浏览 1提问于2019-07-04得票数 3
我正在努力从单元格中检测阿拉伯文本。
我正在写一个程序来检测阿拉伯数字的阿拉伯字母文本的数字。
不幸的是，我无法得到它。
如果单元格只由阿拉伯数字组成，那么我可以得到它，但是如果单元格中的值是字母数字，那么它就被认为是完整的字符。
该程序是：
Sub ReverseText()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.In
浏览 2提问于2015-07-26得票数 1
我尝试使用此代码将范围从Excel工作表复制到PowerPoint中的表，但没有运行。
ppapp.Visible = True
For Each sh In ThisWorkbook.Sheets
If sh.Name Like "E_KRI" Then ppapp.ActivePresentation.Slides.Add
ppapp.ActivePresentation.Slides.Count + 1, ppLayoutBlank
ppapp.ActiveWindow.View.GotoSlide
ppapp.ActivePr
浏览 1提问于2016-07-04得票数 2
回答已采纳
这是一个excel问题:我有一个excel工作表，它的格式很重，也就是说，列宽已经更改，单元格具有颜色格式。我在某些领域里过滤了这张纸。现在，我想将这些过滤后的数据复制到另一个带有所有格式的excel工作表中。
因此，对于唯一可能的方法，似乎是首先使用画图格式化程序对每一列进行复制，但这非常繁琐。有什么简单的方法吗？
浏览 3提问于2013-10-21得票数 0
回答已采纳
Sub VBA_Read_External_Workbook()
'''''Define Object for Target Workbook
Dim Target_Workbook As Workbook
Dim Source_Workbook As Workbook
Dim Target_Path As String
'''''Assign the Workbook File Name along with its Path
'''''Change path of th
浏览 2提问于2017-06-02得票数 1
我将Excel数据链接到ppt面板，并希望在ppt中编辑该链接数据的格式，同时将数据保存在Excel单元格中，而不更改Excel单元格本身的格式。
I使用：将Excel单元格链接到PowerPoint甲板
Ctrl+c+cell
在PPT中创建文本框
糊状特殊
选择粘贴链接，选择Microsoft工作表对象。这将创建从ppt中的Excel链接的单元格的图像。
当前结果：
在Excel中: C2 = 800，是蓝色的，带有边框，
在PPT中，当我链接到C2到一个文本框后，我那个文本框有相同的值800，是蓝色的，带有边框，卡布里字体。
期望的结果：
在Excel中: C2
浏览 1提问于2019-08-16得票数 0
回答已采纳
2回答
我有两张纸，只有两栏：
旧URL
新URL
一个工作表(主表)包含这两列的20k行，我有另一个工作表(toImport)，它包含大约400行相同的两列。
由于这是一个发送给apache的重定向文件，而我这样做是因为我们的web环境中的结构发生了很大的变化，所以在导入20k行表中的400行之前，我想评估一些场景：
如果toImport文件中的旧对和新对已经在主文件中:对它不做任何操作
如果来自toImport文件的旧URL位于主文件的新URL列中，请执行以下操作：
将来自toImport文件的新URL值放入主文件的新URL值中(以避免创建级联重定向)
还从toIm
浏览 3提问于2015-03-03得票数 0
回答已采纳
很抱歉，我是VBA的新手，感谢这里的所有专家，我能够复制一些代码并修改它们以满足我的需要。基本上，它们只是几个执行各种功能的命令按钮。它在我的excel 2010中运行得很好。但是，当我尝试将该文件保存到另一台装有Excel 2007的计算机上(确认vba正在运行)时，弹出一条消息
“以下功能无法保存在未使用宏的工作簿中：
VB项目
若要保存具有这些功能的文件，请单击“否”，然后选择启用宏的文件类型...“
甚至我也单击了no，然后将其保存为xlsm。当我打开文件时，所有的vba代码都被禁用。我只是想知道这是不是由于以下任何一行代码无法在excel2007中运行所致。非常感谢您的帮助！
很抱歉
浏览 22提问于2016-07-26得票数 0
当前的vba代码从当前的一个工作表中复制数据，并使用该工作表中的数据创建一个新的工作簿。
Sub copying_data()
Dim FilePath As String: FilePath = ThisWorkbook.Path & "\"
Dim FName As String
FName = FilePath & "Summary_Output_" & _
Format(Date, "ddmmmyyyy") & ".xlsx"
ThisWorkbook.Sheets(
浏览 4提问于2020-01-21得票数 0
回答已采纳
我在VBA中使用Open file方法打开xlsx。但是我有一个问题，那就是xslx。文件有错误。 当我打开xlsx时。文件中，消息框的内容是：“我们发现".xlsx文件”中的某些内容有问题。是否要尽可能多地恢复?如果您信任此工作簿的来源，请单击“是”。“ 如果单击yes，将出现以下消息框："Removed Records: Merge cells from /xl/worksheets/sheet1.xml part“ 因此，由于xlsx中的错误。文件中，我无法使用"Workbook.Open(application.GetOpenFilename)“在我的vba代
浏览 263提问于2020-04-03得票数 0
如何使用MS Office中的VBA将文本添加到Windows剪贴板，以便将其作为表格粘贴到Word中？
浏览 11提问于2008-11-17得票数 11
回答已采纳
1回答
让我重新表达我的问题..。我有日期列，因为列标题中有单个日期(例如: Col A= 02/24/2014，Col B= 02/25/2014等)，其中包含数字值。我创建了一个新的列C，它的公式= Col being。当然，Col的列头会显示一个#值！错误，因为第一行也被减去了。其余的列也是这样做的。为了重命名新列，我在“查找和选择”中使用“转到特殊”选项来选择“公式”>“错误”。这只突出显示具有#值的新列！错误。然后，通过连接从其中减去的列标题，为每个新列分配一个新名称。因此，Col C将成为"Col A To Col B"，即"02/24/2014至02/25/
浏览 0提问于2014-02-25得票数 0
开始：
我将从我不知道如何完成我的要求，这就是为什么我要张贴。
我试着使用COUNTIF，但逻辑使我无法理解我正在尝试的东西。如果我能写代码的话，我很乐意提供代码。
工作表化妆：
Berry Mixer Strawberry 2.20 *Berry Mixer 5.80
Berry Mixer Grape 1.50 *Pumpkin Spice 2.20
Berry Mixer Blueberry 2.10 *Blitz 5.60
Pumpkin Spice Pumpkin
浏览 6提问于2015-09-08得票数 0
7回答
我负责一个非常大的Excel 2010电子表格与各种外部数据源的链接，包括彭博、65个带有vba模块的工作表以及对其他vba外接程序的引用。
我注意到VBA项目已经获得了多个Workbook对象。
这是标准的ThisWorkbook。但是，许多工作表也被Excel转换为Workbook对象，将原始工作表保留为上一个工作表的副本，减去代码。
这似乎不是任何人行动的结果。实际上，我认为不可能有多个Workbook对象！
例如，我有一个名为wksInputs的工作表，它现在被转换成一个Workbook对象，而原始的wksInputs现在被称为wksInputs1。
我无法删除wksInpu
浏览 7提问于2013-08-16得票数 10
回答已采纳
我正在尝试执行以下一系列操作：
打开要输入开始日期的输入框，并将该日期放在指定工作表上的指定单元格中。
打开输入框，输入结束日期，并将该日期放在指定工作表上的指定单元格中。
从位于和/或在这些日期之间的大型数据集中选择数据行。
将该数据复制到另一个工作表(sheet2)。
样本数据：
Sol Id Acct No Name DATE
20 12 JOHN STEVE 16/09/2009
20 13 ROBERT V 31/07/2011
4 14 JOHNNY WALKER 30/04/2012
20 15 LA PRUDENCE
浏览 3提问于2016-02-03得票数 0
下面的代码来源于rondebruin.nl上非常有用的信息。它将选定的csv文件导入到xls工作簿的单独选项卡中。有两件事我想要改变。
我不能找到这个问题的答案在这个网站上或在一般搜索，我非常感谢这里的专家的一些帮助，希望这是感兴趣的其他人…
1)代码当前覆盖或删除运行它的工作簿中现有的第一个工作表--我希望在任何情况下都在此工作簿的前面保留一个工作表
2)在后续运行中，退出选项卡后会添加新的选项卡--我希望在重新导入相同的csv文件时覆盖现有的选项卡。
...appreciate任何帮助...
Option Explicit
#If VBA7 Then
Private Declar
浏览 2提问于2013-10-22得票数 0
2回答
我一直在寻找一种方法来做这件事，我觉得我好像撞到了墙。。。我在VBA是新来的，所以我可能不会这么做。
我有张桌子看起来像这样：
我需要它看起来像这样：
客户端需要将这些数据用于各种用途。他们尝试了一个数据透视表，但他们讨厌它的外观，他们的最终用户也不喜欢它。在数据以最终格式出现之后，他们还对数据做了许多其他的调整。
我能够得到的名字和问题复制/粘贴到一个新的工作表正确的布局。然后，我尝试做一个For每一个循环来过滤名称和复制/粘贴/转到这个新的工作表的答案。我采用这种方法是因为问题和名字的数量一直在变化。
我不明白我所看到的代码，我也不知道我在网上找到的旧例子是如何被操纵来
浏览 4提问于2017-08-24得票数 0
回答已采纳
我有一个excel工作簿，其中有几个数据透视表引用了工作簿中包含的数据。透视表引用的所有数据都包含在此工作簿(“版本1")中。
我想将此工作簿重命名为“版本2"，但当我重命名该工作簿时，所有数据透视表都引用了”版本1“数据。我希望数据透视表引用“版本2”中的数据。
我尝试了几种选项设置的组合，但我找不到一种设置组合可以自动将数据透视表的源引用更改为新命名的“版本2”。
我知道可以写一个vba脚本来解决这个问题，但我想知道是否有非vba的解决方案。
浏览 13提问于2015-04-10得票数 4
1回答
VBA新手在用偏移量将一张纸复制到另一张表时遇到困难。
复制整个工作表是可行的，但我无法获得带有偏移量的副本，以便以同样的方式工作。
我遗漏了什么？
source.Copy ThisWorkbook.Sheets(Sheets.Count) 'works
source.Range("A12").Copy Destination:=ThisWorkbook.Sheets(Sheets.Count) 'fails
浏览 1提问于2015-11-19得票数 1
回答已采纳
请原谅我的无知(newby和对VBA知之甚少)...
我已经开发了一些附加到按钮上的宏，并在工作簿中的一个工作表中工作。宏在日历上执行各种作业。医院侧翼的10间卧室中的每一间都有一个日历。
我现在想用相同的按钮和宏为每个卧室制作相同的工作表，即10个工作表。
但是，尽管我可能会尝试，但我不能使宏在其他工作表中工作。
宏位于第一个工作表(Bed1)的VBA代码编辑器中。我已经将代码复制到VBA编辑器中的"This Workbook“页面中-但这没有任何效果，只是停止了它们的工作。
这是一个典型的宏：
'=======================================
浏览 0提问于2013-10-24得票数 3
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
