VBA多次保存数据自动获取上次保存数据最后一个记录下一个空白位置

iuin_01

请老师们帮忙看一下代码如何修改可以多次保存数据自动获取游标位置继续保存数据

microyip

完全没看懂要做什么

iuin_01

microyip 发表于 2020-1-30 08:10
完全没看懂要做什么

表中我详细写了我想要的结果，麻烦老师看一下

microyip

cells(rows.count,1).end(xlup).offset(1)

3190496160

Private Sub CommandButton1_Click()
Dim arr     '定义数组
With Sheets("扫码界面")
    ws = .Cells(Rows.Count, 1).End(xlUp).Row
    If ws < 4 Then MsgBox "扫码界面为空！": Exit Sub
    arr = .Range("a4:o" & ws) '给数组划定范围
End With
With Sheets("扫码记录汇总")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    .Cells(rs, 1).Resize(UBound(arr), UBound(arr, 2)) = arr
End With
End Sub

网海遨游

Private Sub CommandButton1_Click() '保存按钮
    Dim brr(), arr    '定义数组
    Dim I%, Myr, y
    arr = Sheets("扫码界面").UsedRange    '给数组划定范围
    ReDim brr(1 To UBound(arr), 1 To 15)    '重新定义数组（1行-arr行，1-15列）
    For I = 4 To UBound(arr)    '条件循环从4行开始
      For y = 1 To 15    '条件循环1-15列
        brr(I - 3, y) = arr(I, y)  '如果是[A1]，那么就是brr（I,Y）,以此类推
        Next
    Next
    With Sheets("扫码记录汇总")
      Myr = .Cells(Rows.Count, 1).End(3).Row + 1 'A列有数据最大行号+1
      .Cells(Myr, 1).Resize(UBound(brr), UBound(brr, 2)) = brr '写入数据
      Erase arr: Erase brr '清除数组
    End With
End Sub

网海遨游

代码在审核,发个图片,.

iuin_01

microyip 发表于 2020-1-30 09:09
cells(rows.count,1).end(xlup).offset(1)

老师问题帮我解决了，就是这个意思非常感谢

iuin_01

网海遨游 发表于 2020-1-30 10:06
代码在审核,发个图片,.

非常感谢，您能告诉我，清除数组的意义是什么吗，谢谢啦

网海遨游

iuin_01 发表于 2020-1-31 09:12
非常感谢，您能告诉我，清除数组的意义是什么吗，谢谢啦

释放电脑内存.