提取【非空单元格】的数值及相关信息，到其他表格

ahesay

提取【非空单元格】的数值及相关信息，到其他表格，请论坛老师们，有空指点下

约定的童话

Sub test()
    Dim i, n, arr, brr()
    n = 1
    arr = [a1].CurrentRegion
    ReDim brr(1 To 100, 1 To 3)
    For i = 2 To UBound(arr)
        If arr(i, 13) <> "" Then
            brr(n, 1) = arr(1, 13)
            brr(n, 2) = arr(i, 1)
            brr(n, 3) = arr(i, 13)
            n = n + 1
        End If
    Next
    Sheet1.[a2].Resize(UBound(brr), 3) = brr
End Sub

ahesay

约定的童话 发表于 2019-6-12 14:17
Sub test()
    Dim i, n, arr, brr()
    n = 1

老师，不能覆盖sheet1原有的数据，要在原有数据下，另起新的行