VBA Excel在循环时自动增加字符串值

Question

我有一份包含公寓数量的清单。

我想在这里填充字符串

现在我想让它为每个要通过循环生成的工作表增加 1，如下所示：

 Sub otdr()

 Dim i As Long
 Dim xNumber As Long
 Dim otdr As Range
 Dim xName As String
 Dim ws As Worksheet

 Application.ScreenUpdating = False

 Set ws = Sheets("OTDR TRACE - 1")
 Set otdr = ws.Range("Q46")
 xNumber = Sheets("Frontsheet").Range("D32").Value


 For i = 1 To (xNumber - 1)
 otdr = "OT " & (i + 1) & " of " & Number
 ws.Copy After:=ActiveWorkbook.Sheets(ws.Index + i - 1)
 ActiveSheet.Name = "OTDR TRACE - " & (i + 1)
 Next

 ws.Activate
 otdr = "OT 1 of " & Number

 Application.ScreenUpdating = True

 End Sub

在执行现有代码后，它停止工作。我创建了第二个循环，但复制了字符串，但没有更改数字。

  Dim i As Long, j As Long
  Dim xNumber As Long, yNumber As Long
  Dim otdr As Range, desc As Range
  Dim xName As String
  Dim ws As Worksheet, wk As Worksheet

 Application.ScreenUpdating = False

 Set ws = Sheets("OTDR TRACE - 1")
 Set wk = Sheets("Fibre drop release sheet")
 Set otdr = ws.Range("Q46")
 Set desc = ws.Range("N7")
 xNumber = Sheets("Frontsheet").Range("D32").Value
 yNumber = Sheets("Fibre drop release sheet").Range("E3").Value

 For i = 1 To (xNumber - 1)
 otdr = "OT " & (i + 1) & " of " & xNumber
 ws.Copy After:=ActiveWorkbook.Sheets(ws.Index + i - 1)
 ActiveSheet.Name = "OTDR TRACE - " & i + 1
 Next

 For j = 1 To Number
 desc = "FIBRE TRACE @ 1310 & 1550 - F1 - Flat " & j    ' copying only the string without the increment numeration
 ws.Copy After:=ws.Range("N7")(ws.Index + i) ' this line generates an error

 Next


 ws.Activate
 otdr = "OT 1 of " & xNumber

添加后

    ws.Copy After:=ws.Range("N7")(ws.Index + i)

我收到以下错误：

方法“对象复制”工作表失败

解决方法如下：

Method 'Copy' of object '_Worksheet' failed

对我没有帮助

有没有机会让这个数字按张递增？

更新：

现在我的代码如下所示：

  Sub otdr()

  Dim i As Long, j As Long, Lastrow As Long
  Dim xNumber As Long, yNumber As Long
  Dim otdr As Range, desc As Range
  Dim xName As String
  Dim ws As Worksheet, wk As Worksheet

  Application.ScreenUpdating = False

  Set ws = Sheets("OTDR TRACE - 1")
  Set wk = Sheets("Fibre drop release sheet")
  Set otdr = ws.Range("Q46")
  Set desc = ws.Range("N7")
  xNumber = Sheets("Frontsheet").Range("D32").Value
 
  Lastrow = wk.Cells(wk.Rows.Count, "E").End(xlUp).Row

  For i = 1 To (xNumber - 1)
  otdr = "OT " & (i + 1) & " of " & Number
  ws.Copy After:=ActiveWorkbook.Sheets(ws.Index + i - 1)

  ActiveSheet.Name = "OTDR TRACE - " & i + 1

  Next

  For j = 1 To Lastrow
  desc = "FIBRE TRACE @ 1310 & 1550 - F1 - Flat " & j

  Next


  ws.Activate
  otdr = "OT 1 of " & Number

  Application.ScreenUpdating = True



  End Sub

更新二

适用于以下情况：

   For i = 1 To (xNumber - 1)
   otdr = "OT " & (i + 1) & " of " & Number
   ws.Copy After:=ActiveWorkbook.Sheets(ws.Index + i - 1)

   ActiveSheet.Name = "OTDR TRACE - " & i + 1
   For j = 1 To Lastrow
   desc = "FIBRE TRACE @ 1310 & 1550 - F1 - Flat " & j
   Worksheets("OTDR TRACE - 1").Range("N7").Copy Destination:=Sheets("OTDR TRACE - " & j + 1).Range("N7")

   Next

 Next

我收到以下行的“我们不能为合并的单元格执行此操作”：

      Worksheets("OTDR TRACE - 1").Range("N7").Copy Destination:=Sheets("OTDR TRACE - " & j + 1).Range("N7")

Answer 1

您的代码中有错字。我认为您的第二个循环应该是：

For j = 1 To yNumber

你有没有：

Option Explicit

在你的模块顶部？如果没有，请添加它（并养成这样做的习惯），然后 VBA 将要求您声明变量并抛出变量拼写错误（拼写错误导致变量未声明）。

然后我不确定失败的行的意图：

ws.Copy After:=ws.Range("N7")(ws.Index + i)

但这肯定是不正确的。如果您尝试在其中一个工作表中设置 Range("N7") 的值，那么您应该直接执行此操作，而不是使用 ws.Copy。如果那 是 你正在尝试做的，那么语法是这样的：

Worksheets("<name>").Range("<range>").Value = <value>

编辑，2020 年 12 月 8 日：

进一步说明您的 cmets 和说明，您仍在尝试一次性完成复制和粘贴，这就是您在调试它时遇到问题的原因。使用变量将失败的行分成两部分（尽管在顶部声明）：

Dim strValue As String ' Or whichever type is appropriate

...

strValue = Worksheets("OTDR TRACE - 1").Range("N7").Value
Sheets("OTDR TRACE - " & j + 1).Range("N7").Value = strValue

我怀疑您在尝试设置值时仍然会遇到合并单元格错误，但是您很清楚问题是什么并且可以制定解决方案。我目前不在使用 Excel 的机器上，但您可能会发现您需要使用另一种典型的方式来获取单元格值：

Cells(row, col)

所以，在你的情况下：

Worksheets("OTDR TRACE - 1").Cells(7, 14).Value