Excel 如何以自动方式添加工作表,并使用单词/字母和数字命名?

Excel 如何以自动方式添加工作表,并使用单词/字母和数字命名?,excel,vba,Excel,Vba,我有一个基于下图的问题: 共有7个组,其中有两列,每列之间有一个空白列 我想为每组创建一条堆叠线,并将图片放在另一张纸上。例如,我想从a列和B列创建一条叠层线,并放入工作表X1,然后从D列和E列创建一条叠层线,并放入工作表X2,等等。。。有没有可能在表格上写上字母“X”和数字 问题是:如何创建图纸并用Xi命名(如果我有100组2列,我应该有100个新图纸,分别命名为X1、X2、X3、…X100),并将每组的堆叠线放在特定图纸中 谢谢 我已经提供了以下步骤- 1) 打开excel工作簿2)按Al

我有一个基于下图的问题:

共有7个组,其中有两列,每列之间有一个空白列

我想为每组创建一条堆叠线,并将图片放在另一张纸上。例如,我想从a列和B列创建一条叠层线,并放入工作表X1,然后从D列和E列创建一条叠层线,并放入工作表X2,等等。。。有没有可能在表格上写上字母“X”和数字

问题是:如何创建图纸并用Xi命名(如果我有100组2列,我应该有100个新图纸,分别命名为X1、X2、X3、…X100),并将每组的堆叠线放在特定图纸中


谢谢

我已经提供了以下步骤-

1) 打开excel工作簿2)按Alt+f11,转到插入模块3) 将代码粘贴到模块中4)转到表单1 5)插入 示例矩形6)右键单击形状,可以找到assign 宏7)选择宏,此处为宏\u测试8)现在您可以运行宏 通过单击形状。运行后,形状将充当按钮9) 将要求您选择一个文件

请查看代码。它会满足你的要求

    Sub Macro_Test()
        Dim LastCol As Long
        Dim ws As Worksheet
        Dim wb As Workbook
        Dim x As Long
        Dim wsx As Worksheet
        Dim col_num As Long

 MsgBox " Please Select the file"

    filename = Application.GetOpenFilename

    Set wb = Workbooks.Open(filename)

        Set ws = wb.Worksheets("Sheet1")

        col_num = 1


        With ws
                LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        End With

        '~ for calculting no of sheet

                x = LastCol / 3


           For i = 1 To x
               wb.Worksheets.Add().Name = "X" & i
               Set wsx = wb.Worksheets("X" & i)

              wsx.Columns(1).Value = ws.Columns(col_num).Value

              ws.Application.CutCopyMode = False
              ws.Application.CutCopyMode = True
              wsx.Application.CutCopyMode = False
              wsx.Application.CutCopyMode = True


           wsx.Columns(2).Value = ws.Columns(col_num + 1).Value

            ws.Application.CutCopyMode = False
            ws.Application.CutCopyMode = True
            wsx.Application.CutCopyMode = False
            wsx.Application.CutCopyMode = True

           col_num = col_num + 3

           Next



        End Sub

sheet.Name=“X”&计数器
?这和你关于图表的问题完全一样。到目前为止你尝试了什么?请出示您的代码,以便我们提供帮助。您不能指望我们为您编写完整的宏。@takendark0努力?0您阅读所有评论的努力。请在谈论某人之前尽量小心一点。@Takendark请再读一遍,然后试着说些什么。请不要关注这个话题。谢谢!请回答一个问题。仅当我将需要修改的信息放入宏所在的文件中时,此宏才会运行?有可能保存一个名为“macro_test”的宏,该宏可以与其他工作簿一起运行?@luli,我已经添加了代码。您需要输入文件名,谢谢您的回答。有些事情对我来说不是很清楚。是否有任何方法可以使此宏在不提供要修改的文件的路径和文件名的情况下为每个excel文件运行?谢谢:)你的意思是,你会给出文件夹的路径吗,宏应该自动选择excel工作簿并对每个工作簿执行此操作?不,我想不。我想打开宏文件和另一个excel文件,该文件具有图片中的结构,然后按ALT+F8并在该excel文件上运行宏。然后我想在另一个具有不同名称和不同路径的excel文件上运行此宏。我认为正确的词是“一般”。我希望以一种通用的方式使用这个宏,而不依赖于名称或路径。非常感谢你的帮助。