Question

我在excel中录制了一个宏。我用excel做这个每周生成报告。列的位置和数量保持不变。但是，行数每周都在变化。文件名和工作表名称的更改方式相同。

此录制的宏将记录为名为＆＃34; 2017_08_13＆＃34;的工作表。我每次都必须在此宏中手动更改工作表名称。相同方式单元格选择转到第101行。每次我必须手动输入最后一个行号才能使其正常工作。谁能帮助我让这两件事自动适用于每张纸。 1）它将在activesheet上运行，因此，我们可以使用活动工作表来代替工作表名称。 2）它应该到最后一个单元格进行选择。在第17行（我猜）它指向第101行。

class myClass():
    def __init__(self, number):
        self.myStr = "bla"
        self.myInt = number * 3

我不是编程人员。谢谢

Answer 1

如果您想在不使用名称的情况下遍历工作表，可以使用：

Dim i as Integer, j as Integer, LR as Long

j = Sheets.Count

For i = 1 to j

    With Sheets(i)

        LR=.Cells(.Rows.Count, "A").End(xlUp).Row 'Allows you to have a dynamic row count

        'Your code here, where you should see .Columns("E:E") rather than Columns("E:E") to make use of the With statement

    End With

Next i

如何在excel 2013的下面记录的宏中将活动工作表设置为变量？

1 个答案: