Question

我想删除一系列单元格“D8：I13”的内容，然后是相同的范围，但是低15行，然后是另外15行，所以55次。我写了代码，但弹出错误：运行时错误1004（对象'_Global'的方法'范围'失败）

    Sub удалитьссылки()
    Dim book1 As Workbook
    Dim A As String
    Dim B As String

    Set book1 = Workbooks.Open("E:\Super M\Проект ставки\Решение\цифирь.xlsx")
    A = "8+n*15"
    B = "13+n*15"

    'переходим в активную страницу откуда надо скопировать данные
    book1.Worksheets("Лист1").Activate

    n = 0
    Do Until n = 55

    Range("D" + A + ":I" + B + "").Select
    Selection.ClearContents
    n = n + 1
    Loop


    End Sub

Answer 1

好的我可以在这里看到一些错误：

您的编码并不知道n是什么。它尚未定义
A和B不是字符串，而是数字。
A和B的公式不在您的循环中。因此，n不会增加

请尝试以下代码：

Sub удалитьссылки()
Dim book1 As Workbook
Dim A,B,n as Long

Set book1 = Workbooks.Open("E:\Super M\Проект ставки\Решение\цифирь.xlsx")

'переходим в активную страницу откуда надо скопировать данные
book1.Worksheets("Лист1").Activate

n = 0
Do Until n = 55
    A = 8+(n*15)
    B = 13+(n*15)

    Range("D" & A & ":I" & B).ClearContents
    n = n + 1
Loop


End Sub

删除非连续的单元格范围（运行时错误1004）

1 个答案: