Question

我试图修改我的电子表格，以便在您点击＆＃34;插入工作表＆＃34;按钮，它将文本，表格，VBA，宏等从单元格B38-K38：B52-K52添加到新工作表中，并允许用户点击＆＃34;点击这里＆＃34;我有按钮并根据需要输入数据。我尝试使用VBA脚本执行此操作但是它会出现错误，因为每次添加工作表时，数字都会增加。增量修正或是否有其他解决方案？

编辑，这是解决方案：

Sub new_sheet()
    '
    ' new_sheet Macro
    ' Copies the range of B36:L52 (Problems Identified) to a new sheet
    ' Then resizes columns
    ' Keyboard Shortcut: Ctrl+q
    Worksheets.Add after:=Worksheets(Worksheets.Count), Count:=1
    Worksheets("Sheet1").Range("B36:L52").Copy Destination:=ActiveSheet.Range("A1")
    Cells.Select
    Selection.Columns.AutoFit
End Sub

Answer 1

像这样的简单宏：

ActiveSheet.Copy after:=ActiveSheet
ActiveSheet.Name = "NewSheet"

将复制活动工作表及其中的所有内容，并创建一个名为＆＃34; NewSheet＆＃34;的新工作表。那会有帮助吗？

Excel - 将单元格+宏+ VBA从一个工作表复制到另一个工作表？

1 个答案: