excel - 尝试偏移活动单元格时出现错误 1004

Question

我试图抵消活动单元格，直到满足某个条件。我写的是

Do While ActiveCell.Value <> Worksheets("Unit B").Range("D1").Value  
    ActiveCell.Offset(0, 1).Select
Loop

你能帮我纠正这个吗？

---

提供我的整个代码以供参考：

Private Sub CommandButton1_Click()

Dim ddsdata As Range

Dim i As Long
i = 1

Worksheets("Unit B").Select
Set ddsdata = Worksheets("Unit B").Range("E3:E35")
Worksheets("Data Sheet").Select
Worksheets("Data Sheet").Range("E1").Select

Do While ActiveCell.Offset(0, i) <> Worksheets("Unit B").Range("D1").Value
i = i + 1

Loop

ActiveCell.Offset(1, i).Select
ActiveCell.Value = ddsdata

Answer 1

试试下面的代码。避免在代码中使用 Select / Activate / ActiveCell。也总是按工作表名引用一个单元格，然后是单元格。例如Sheet1.Range("A1")在工作簿中以获得更好的结果。

Private Sub CommandButton1_Click()

    Dim ddsdata As Range

    Dim i As Long
    i = 1

    Thisworkoook.Activate
    Set ddsdata = Thisworkoook.Sheets("Unit B").Range("E3:E35")

    Do While Worksheets("Data Sheet").Range("E1").Offset(0, i) <> Worksheets("Unit B").Range("D1").Value
            i = i + 1
    Loop

    ActiveCell.Offset(1, i).Select
    ActiveCell.Value = ddsdata

End Sub