如何以自动方法添加工作表并使用单词/字母和数字命名它们？

Question

根据下图我有一个问题：

有 7 个组，每组有两列，每列之间有一个空白列。

我想为每个组创建一条堆叠线并将图片放在另一张纸上。例如，我想从 A 列和 B 列创建一条堆叠线并放入工作表 X1，然后从 D 列和 E 列创建一条堆叠线并放入工作表 X2 等...是否可以将工作表命名为那种可以放字母“X”和数字的形式？

问题是： 如何创建工作表并用 Xi 命名（如果我有 100 组 2 列，我应该有 100 个名为 X1、X2、X3 的新工作表, ...X100) 然后他们将每一组的堆叠线放在特定的工作表中？

谢谢！

Answer 1

我已经提供了步骤 -

1) 打开一个 Excel 工作簿 2) 按 Alt + f11，转到插入模块，3) 将代码粘贴到模块中 4) 转到 sheet1 5) 插入形状 示例矩形 6）右键单击形状，您可以找到分配 宏 7) 选择宏，这里是 Macro_Test 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