Question

我是vba的新手。我试着录制一个我执行上述步骤的宏。没有这样的运气。我想：

将选择粘贴到新选项卡，名称选项卡“单元格A1”中的文本，然后返回到工作表1

我认为可能需要分两步完成，但我真的不确定如何继续。有什么建议吗？

感激， Masin

Answer 1

Sub addtab()
'
' addtab Macro
'

'
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets.Add
    Sheets("Sheet3").Select
    Sheets("Sheet3").Name = "Sheet3"
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet3").Select
    Application.CutCopyMode = False
    Sheets("Sheet3").Name = "Brouwer, Mark "
    Range("I23").Select
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("November").Select
End Sub

以上是代码。它会创建一个新选项卡，然后使用以下消息崩溃：

运行时错误＆＃34; 9＆＃34;

下标超出范围

感谢您的帮助！

Excel 2011 Mac：将选择粘贴到新选项卡，名称选项卡单元格A1返回到工作表1

1 个答案: