复制值表单，用作工作表名称（在循环中） - VBA Excel 宏

Question

我正在尝试从每个单元格中一个一个地复制一行中的值，然后将这些值一个一个地用作工作表名称。我遇到的一个问题是跳过了第一批工作表，所以我试图隐藏那些我不想重命名的工作表。应重命名所有其他工作表（其中 34 个）。

在收到一条错误消息“运行时错误 '1004'L Method 'PasteSpecial' of object'_Worksheet' 失败之前，我可以使用 F8 一直获取它“ws.PasteSpecial xlPasteValues”。

我也尝试过使用“Activesheet.PasteSpecial xlPasteValues”，但它给出了同样的错误。

非常感谢任何建议，这让我发疯。 :) 我的备份计划只是使用宏记录并手动进行每次重命名，但这不是一个非常优雅或简单的代码，所以我不想这样做。

代码如下：

Dim ws As Worksheet
Dim TitleID As String
Dim TID As String


Sheets("SheetName1").Activate
Set ws = ActiveSheet

Dim rng As Range, cell As Range

Set rng = ws.Range("C5", "AJ5")

For Each cell In rng
    cell.Copy
    Sheets("SheetName1").Visible = False
    ws.Next.Select
    ws.PasteSpecial xlPasteValues
Next cell

Answer 1

如果我正确理解了您的问题，那么下面的代码应该可以工作。

Dim ws As Worksheet
Set ws = Sheets("SheetName1")

Dim rng As Range, cell As Range
Set rng = ws.Range("C5","AJ5") 

Dim i as Integer 
i = 5 'this is an arbitrary number, change to whatever number of worksheets 
      'you wish to exclude that are at the beginning (left most side) of your workbook
      'also assumes "SheetName1" is before this number.

For Each cell In rng
    Sheets(i).Name = cell.Value
    i = i + 1
Next cell