Question

我正在尝试使用VBA编写循环以清理数据。 VBA无法选择我先前在备注1中选择的单元。如果我不使用循环，则可以一一进行；但是，由于VBA最多只能加载30张纸（过程），因此会花费很多时间。请让我知道我的问题在哪里。

备注1这是我选择的范围。备注2无法选择我之前选择的单元格（备注1）。它只是回到工作表-选项，范围A1

Sub Macro1()

Dim i As Integer

Worksheets("Options").Activate
Cells.Find(What:="Option A", After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.EntireRow.Select
Selection.Offset(2, 0).Select
    

For i = 1 To 6
            
    Range(Selection, Selection.End(xlDown)).Select <-- Remark 1
    Selection.Copy
    Worksheets.Add
    Worksheets.Select
    Range("A1").Select
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    Worksheets("Options").Activate
    ActiveCell.Select    <-- Remark 2
    Selection.End(xlDown).Select
    Selection.Offset(4, 0).Select
    ActiveCell.EntireRow.Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Worksheets("Option A").Activate
    ActiveCell.Select
    Selection.End(xlDown).Select
    Selection.Offset(1, 0).Select
    ActiveSheet.Paste

    Worksheets("Options").Activate
    ActiveCell.Select
    Selection.End(xlDown).Select
    Selection.Offset(8, 0).Select
Next
End Sub

我尝试执行循环时，VBA Active Cell无法正常工作

0 个答案: