使用vba命名新工作表时，在循环中将数字增加1
在VBA中，可以使用循环来命名新工作表并逐渐增加数字。以下是一个示例代码：
Sub NameNewWorksheet()
Dim ws As Worksheet
Dim i As Integer
i = 1 ' 初始数字
For Each ws In ThisWorkbook.Worksheets
If Left(ws.Name, 9) = "NewSheet_" Then
i = i + 1 ' 数字增加1
End If
Next ws
Set ws = ThisWorkbook.Worksheets.Add
ws.Name = "NewSheet_" & i ' 命名新工作表
End Sub这段代码首先定义了一个整数变量i，并将其初始化为1。然后，通过循环遍历工作簿中的所有工作表，检查它们的名称是否以"NewSheet_"开头。如果是，则将i增加1。最后，使用Worksheets.Add方法添加一个新的工作表，并将其名称设置为"NewSheet_"加上增加后的数字i。
这种方法可以确保每次运行代码时，新工作表的名称都会逐渐增加数字，避免重复命名。
相关·内容
我有一个循环，它将从文件夹中的3个工作表中获取内容，并将它们粘贴到不同的工作簿上。我想把它们都命名为一个数字。新工作簿中的% 1、% 2和%3，以供以后在操作数据时使用。我试着命名一个变量，但我想不出如何让它每次递增1。Excel.WorksheetDim strPath As String
Dim strFile
浏览 67提问于2019-09-18得票数 0
回答已采纳
我已经找了几个小时了，就是找不到解决这个问题的办法。正如您在图像上看到的，我有3列和2行。我的目标是计算成本行的总和(有换行符)或将设备和成本列拆分为3个较小的行。这个是可能的吗？
浏览 0提问于2017-06-29得票数 0
1回答
我编写了一个循环，它在工作表中选择值并将它们合并为一个。所有操作都很好，但是代码的最后一部分只适用于宏正在读取的最后一个工作表。请参阅下面的代码(为了便于理解，我缩小了大小，因此在irow = irow +1之间而不是只有37行，只有1或2行)： W
浏览 2提问于2016-07-01得票数 0
回答已采纳
我有一个叫做“模板”的工作表，里面有一个PowerQuery "TEMPLATE_Query“，可以工作。Powerquery从网站请求CSV文件。现在，在循环中使用VBA，我复制了这个工作表的N个副本，生成了名为"Template (X)“的工作表和名为"TEMPLATE_Query (X)”的Powerquerys。在我的X=1.
浏览 4提问于2020-01-25得票数 0
回答已采纳
我在电子表格的第一栏A中有一个文件夹名列表。我想增强A中列出的每个文件夹的查询功能，以检索所有文件并加载到表中。我想要一个单独的表为每个文件夹，所以我不想做一个强大的查询父文件夹bc 1-它太长，2-我想要单独的表。如何将查询转到下面，以便对A列中列出的每个FOLDERNAME进行查询。With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=Microsoft.Mashup.OleDb.
浏览 5提问于2022-01-25得票数 0
1回答
是否有一种方法通过将图表数据系列从单元格范围更新到命名范围来实现vba，因为当我移动并复制到同一工作簿中的新工作表时，它会更改回单元格范围。当我移动并复制到另一个工作表时，它将更改为单元格范围，我需要的是一个excel vba来将单元格范围替换为命名范围。图1为页2，图2为页3。[
在下面添加新图片，如您所见，它会自动更改工作
浏览 7提问于2021-12-23得票数 1
1回答
变长场的前导零点
、、
我有一个表单，要求用户在文本框中输入一些信息，然后使用一些VBA代码操作这些值并将它们输入一个表中。
其中一个文本框要求一个数字序列号。一旦VBA代码将这个值输入到表中，它就会循环它，增加它，并生成另一个条目。这会重复执行，直到将所有序列号添加到表中为止。我在代码中将文本框中的序列号值声明为字符串，但它仍然删除了我的前导零。
浏览 3提问于2014-09-29得票数 0
回答已采纳
目前，我让VBA提示输入一个新工作表名称的字符串名称，然后使用该名称更新/追加一个工作表名称表，复制现有的模板工作表，重命名新创建的工作表。所有这些都没有问题。我现在遇到的问题是，我想重命名一个从模板复制过来的表。假设在模板表上，表名是tblTemplate。在复制模板工作<
浏览 15提问于2022-01-07得票数 0
请看下面这张表，我把它命名为"Tasks"：这是一个非常基本的类似甘特图的表格。使用VBA时，我使用此表中的数据来执行其他工作表中的某些任务。我有一个For循环，它像这样遍历每一行： Worksheets("Calendar").Cells(i
浏览 0提问于2016-12-11得票数 1
1回答
循环访问表
、、
我正在Access中创建一个数据库，其中将有许多具有相同的相似表，并且它们的名称都将按顺序命名，例如table_0、table_1……while(i=0, i<20,i++){field_1 int PRIMARY KEY,
field
浏览 3提问于2012-07-12得票数 1
回答已采纳
1回答
对于我的作业，我被要求在VBA中创建一个随机数字循环，并在它是我的excel工作表中之前生成的另一个数字时停止该循环。然而，当我运行我的代码时，它不断地重复一个数字，而不是创建新的随机数字。Sub Ticket()
Dim i As Integer
R = Int((999 - 100
浏览 34提问于2020-11-11得票数 0
我已经编写了导航到网站的代码，转到内部页面，展开详细信息，然后将HTML表复制到新创建的工作表。复制表格就会产生问题。在第一次时间表被复制到第二轮时，只创建新的工作表，但是没有粘贴内容。如果您需要更多的数据，请告诉我。For Each e
浏览 4提问于2017-07-21得票数 0
回答已采纳
当我尝试在vba中打开一个新的工作簿时--从基于我个人宏工作簿的宏中--使用：它系统地打开两本工作簿。当我使用类似的方法进行相同的尝试时：它很少起作用，因为单词"book“后面的数字索引很少与"book1”匹配。我的最终目的是自动
浏览 0提问于2017-06-27得票数 2
2回答
VBA新手，我正在尝试通过复制最后一个选项卡，然后对其重新编号来增加选项卡或工作表的数量。即复制标签150，然后重新标记151，依此类推。我已经想出了一种复制工作表的方法，代码如下： ActiveSheet.Name= "LastSheet"End Sub
但我不能让新</e
浏览 0提问于2020-06-25得票数 0
我对Excel中命名范围的范围有点困惑。我有两个版本的excel工作簿。有时，用户需要将数据从较旧版本的工作簿复制到较新版本。大多数单元计算中都使用了一些自定义VBA函数。这些函数中的每个函数在工作表上查找大约4到12个命名范围。这看起来运行得很好。第二个文件的命名范围似乎会被第二个文件忽略，至少在VBA代码中是这样，只要这两个文件都保持打开状态。如果我关闭第一个打开的工作
浏览 3提问于2009-08-05得票数 0
回答已采纳
1回答
我试图使用xlwing来处理Excel文件，就像我过去通过VBA所做的那样。我有一本工作簿，里面有三张纸。其中一张是我在VBA编辑器中将其CodeName修改为shReport的特殊工作表。因此，无论谁使用该文件并将工
浏览 10提问于2022-06-08得票数 -2
2回答
从字段A到B复制和替换部分日期
、、、、
Selection.CopyActiveSheet.PasteActiveCell.FormulaR1C1= "8/1/2020"Selection.AutoFill Destination:=Range("B2:B25"), Type:=xlFillDefault
浏览 0提问于2020-06-02得票数 1
回答已采纳
我正在寻找替代的，通用的编码方法来处理全局命名范围，在VBA。我希望得到答案，在这里，有一些新的概括的建议和方法。在起草以后将使用VBA的电子表格时，我会在电子表格公式中创建命名范围(通常是全局名称)。这些范围在工作表上很有用，作为VBA的参考也很有用。通常，我不会在VBA中添加/更改名称集合；我只是引用集合。在编写VBA代码时
浏览 2提问于2019-01-04得票数 4
1回答
我的目标是从包含股票市场代码的工作表中重命名许多工作表。为此，我在一个名为Update的工作表中有代码。代码从A2到A10。我已经设置了一个For循环以转到下一个活动工作表，并且随着范围值的增加，工作表将被重命名为更新WSheet中的新单元格值
问题是，我希望范围值增加1，这
浏览 0提问于2019-03-25得票数 0
回答已采纳
1回答
这将使我能够使用excel筛选来选择债券评级>阈值的行。数值等效/映射为我提供了一种这样做的方法。
这种值/标签的区别在Excel中是可能的吗？
浏览 2提问于2012-07-02得票数 1
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM
腾讯云开发者
