[已解决]点击vba控件对数据进行读取，写入，删除的循环

tmacchenqi

点击vba控件循环做3个事件：1对单元格固定区域进行读取                                         2.写入Sheet2表中
                                         3.再对固定区域数据删除


写入Sheet2表中的数据依次往下

最佳答案

月排行榜 / 总排行榜

绿卡816-沸点

2017-11-7 18:44

Public Sub Sum()
    Dim arr As Variant, k As Integer
   
    '获取最后一行的求和区域的结果
    arr = Sheet1.Range("A21:G21").Value
   
    '获取sheet2中最后有内容的下一行的行号
    k = Sheet2.Range("A" & Rows.Count).End(xlUp).Row + 1
   
    '将求和结果依次赋值到sheet2中
    Sheet2.Range("A" & k).Resize(1, 7).Value = arr

    '清除sheet1A2:G20区域内的数值
    Sheet1.Range("A2:G20").ClearContents
   
End Sub

跳转到最佳答案楼层

绿卡816-沸点

Public Sub Sum()
    Dim arr As Variant, k As Integer
   
    '获取最后一行的求和区域的结果
    arr = Sheet1.Range("A21:G21").Value
   
    '获取sheet2中最后有内容的下一行的行号
    k = Sheet2.Range("A" & Rows.Count).End(xlUp).Row + 1
   
    '将求和结果依次赋值到sheet2中
    Sheet2.Range("A" & k).Resize(1, 7).Value = arr

    '清除sheet1A2:G20区域内的数值
    Sheet1.Range("A2:G20").ClearContents
   
End Sub