我想固定表二A4列前的数值不清除。为什么用了以下的数据，只能固定住表二中A3值

zjminy

Sub test1()  '//2022.10.31
    On Error Resume Next
    Dim arr, brr(1 To 9999, 1 To 9)
    arr = Sheet1.UsedRange
    For i = 2 To UBound(arr)
     n = n + 1
      brr(n, 1) = n: brr(n, 2) = arr(i, 2): brr(n, 3) = arr(i, 6): brr(n, 4) = arr(i, 10): brr(n, 5) = arr(i, 11): brr(n, 6) = arr(i, 3): brr(n, 7) = arr(i, 4)
    Next

    With Sheets("表2")
        Range("A4:J" & Range("J" & Rows.Count).End(xlUp).Row).ClearContents
        .Range("A4").Resize(n + 3 + 3, 9) = brr
    End With
End Sub

我想固定表二A4列前的数值不清除。为什么用了以下的数据，只能固定住表二中A3值，A4的值不管怎么调整，都会被清除掉，变成空值呢。

taller

    With Sheets("表2")
        Range("A5:J" & Range("J" & Rows.Count).End(xlUp).Row).ClearContents
        .Range("A5").Resize(n + 3 + 3, 9) = brr
    End With

清风竹-

……………………
With Sheets("表2")
    m = .Range("J" & Rows.Count).End(xlUp).Row
    If m < 5 Then m = 5
     .Range("A5:J" & m).ClearContents
      .Range("A5").Resize(n + 3 + 3, 9) = brr
End With
……………………

杨建营

.Range("A4:J" & .Range("J" & Rows.Count).End(xlUp).Row).ClearContents 使用with 前面需要加点

shiruiqiang

yanglinzi

你清除的数据区域包含a4单元格

cyq4896

Range("A5:J" & Range("J" & Rows.Count).End(xlUp).Row).ClearContents