Question

我想构建一个宏来填充formulas.Data正在从网站复制并分别粘贴在Sheet1上。 Sheet2包含用于清理和排列数据的公式，包括根据条件删除行。问题是如果我在消除行之前填写公式，我会收到#REF错误。我想在宏中包含填充因为我已经有一个删除行。我不想用字符160代替实际空间。我的宏位于下方。

代码：

Sub chng()

    Dim x As Long, lastrow As Long
    lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    For x = lastrow To 1 Step -1
        If Cells(x, 2).Value = "SA" Or Cells(x, 2).Value = "EVC" Then
            Rows(x).Delete
        End If
    Next x


    Application.ScreenUpdating = False


    Columns("A:A").Select


    Selection.Replace What:=" ", Replacement:=" ", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

    Application.ScreenUpdating = True


    Range("A1").Select

End Sub

换句话说，我想要完成的是，一旦我完成粘贴信息，运行宏，删除行，更改实际空间的字符160，然后计算Sheet1上的行（不包括标题）并基于此填写sheet2例如如果我有140行数据，我想从第2行填充到141。

Answer 1

您可以为删除的每一行捕获行数并减少它，然后使用该范围：

Dim x As Long, lastrow As Long, totalRows As Long
totalRows = lastrow

    Rows(x).Delete
    totalRows = totalRows - 1

然后你可以将你的公式从第2行复制到totalRows，无论它是什么列。

根据另一张表中的数据填写公式

1 个答案: