时间戳

首页 > 解决方案 > 从特定工作表索引开始循环遍历多个工作表

excel - 从特定工作表索引开始循环遍历多个工作表

问题描述

我正在尝试从第 4 个选项卡开始遍历工作簿中的所有工作表。这就是我所拥有的，但由于某种原因，它只适用于第 4 个选项卡，而不能继续使用其他选项卡。有任何想法吗？

Sub Step13()

Dim sheet As Worksheet
For Each sheet In ActiveWorkbook.Worksheets
  If sheet.Index > 3 Then

'my code here 
Columns("A").Replace "^", vbNullString, xlPart, xlByRows, True
Range("AA1").Value = "Function"
Dim LastRowColumnA As Long
LastRowColumnA = Cells(Rows.Count, 1).End(xlUp).Row
Range("AA2:AA" & LastRowColumnA).FormulaR1C1 = "=ISNUMBER(MATCH(RC[-26],EarningsDates!C[-26],0))"
Columns(27).Value = Columns(27).Value

  End If
Next

End Sub

标签： excelvba

解决方案

以下是更正后的代码。完美运行。

Sub Step13()

Dim sheet As Worksheet
For Each sheet In ActiveWorkbook.Worksheets
  If sheet.Index > 3 Then

sheet.Activate

'my code here 
ActiveSheet.Columns("A").Replace "^", vbNullString, xlPart, xlByRows, True
ActiveSheet.Range("AA1").Value = "Function"
Dim LastRowColumnA As Long
LastRowColumnA = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range("AA2:AA" & LastRowColumnA).FormulaR1C1 = "=ISNUMBER(MATCH(RC[-26],EarningsDates!C[-26],0))"
ActiveSheet.Columns(27).Value = Columns(27).Value

  End If
Next

End Sub

推荐阅读