怎么点按钮后把a7:F18的内容复制到表2里，从第7行开始到18行结束

shalisi

lsc900707 发表于 2018-6-25 09:24
代码需要审核，附件先回传以供测试：

你好，可以从第7行开始记录，但有个问题就是   点按钮后表2就有内容了，表1改了内容后，再点按钮后，表2之前的内容就没了，我想要的是可以一直记录下去的

tudarong

lsc900707 发表于 2018-6-25 09:22

1.     arr = ActiveSheet.UsedRange
   
2.     For i = 7 To UBound(arr)

复制代码

请教下版主，可以说明下Ubound（arr)的最大下标18，是怎么来的呢？
想不明白。

tudarong

tudarong 发表于 2018-6-25 22:32
请教下版主，可以说明下Ubound（arr)的最大下标18，是怎么来的呢？
想不明白。

刚才对UsedRange理解有误，之前以为UsedRange是指有内容的单元格区域，没有想到也包括合并单元格区域。
Ubound（arr)的最大下标18，已理解。

lsc900707

shalisi 发表于 2018-6-25 22:16
你好，可以从第7行开始记录，但有个问题就是   点按钮后表2就有内容了，表1改了内容后，再点按钮后，表2 ...

1. Sub 记录001到台帐()
   
2.     Dim brr(1 To 1000, 1 To 12)
   
3.     arr = ActiveSheet.UsedRange
   
4.     For i = 7 To UBound(arr)
   
5.         If Len(arr(i, 1)) Then
   
6.             m = m + 1
   
7.             brr(m, 1) = arr(5, 2)
   
8.             brr(m, 2) = arr(i, 4)
   
9.             brr(m, 3) = arr(i, 3)
   
10.             brr(m, 6) = arr(i, 2)
    
11.             brr(m, 7) = arr(i, 5)
    
12.         End If
    
13.     Next
    
14.     With Sheet2
    
15.          r = .Cells(.Rows.Count, 1).End(3).Row + 1
    
16.          .Cells(r, 1).Resize(m, 12) = brr
    
17.     End With
    
18. End Sub
    

复制代码