Question

根据推荐的解决方案更新了代码，仍然无效。只循环通过相同的工作表。

现在更新的代码如下所示。

我把头发拉出来！我试图创建一个简单的外观，我的第一次尝试，将在我的数据顶部添加行，插入总和，调整列的大小，然后转到下一个工作表。除了进入下一个工作表之外，一切都很完美。

根据我编写代码的方式，它可以将相同的进程循环到同一个工作表中，也可以在完成当前工作表上的进程后结束。我已经尝试了十种不同的需求，无论我做什么，它都不起作用。

疯狂的是，我将相同的代码复制并复制到一个新模块中，它完美无缺！

我不明白我哪里错了。一些事情，宏被保存在我的个人工作簿中，但将其移动到当前的工作簿并不能解决问题。此外，每个工作表的选项卡都有唯一的名称，如公司1，公司2 ......等等，大约有10家公司。

这是代码，请告诉我，我在这里并不疯狂！

Sub WorksheetLoop()

' Loop Through Worksheets, Add Totals

Dim WS As Excel.Worksheet
Dim iIndex As Integer
Dim LastRow As Long

' = Loop Sum Formula Through All Worksheets

    For iIndex = 1 To ActiveWorkbook.Worksheets.Count
        Set WS = Worksheets(iIndex)
        With WS

        Rows("1:6").Select
        Selection.Insert Shift:=xlDown

        Range("K7:Q7").Select
        Selection.Copy
        Range("K3").Select
        ActiveSheet.Paste

        LastRow = Range("A20000").End(xlUp).Row

        Range("K4").Select
        ActiveCell.Formula = "=Sum(K8:K" & LastRow & ")"

        Range("K4:Q4").Select
        Selection.FillRight

        Range("K:Q").Select
        Cells.EntireColumn.AutoFit

        Range("A1").Select

        End With

    Next iIndex


End Sub

VBA for Loop，不通过电子表格循环

0 个答案: