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

shalisi

怎么点按钮后把a7:F18的内容复制到表2里，从第7行开始到18行结束
我在网上找的代码是从第二行开始，要怎么改

719404338

文件损坏。

shalisi

719404338 发表于 2018-6-24 21:20
文件损坏。

我下载了可以打列，没坏，可能你的软件版本低了

shalisi

Sub 记录001到台帐()

Dim i As Long
Dim K As Long
With Sheet1
    For i = 7 To 18
        If .Range("A" & i) <> "" Then
            K = Sheet3.Range("A18").End(xlUp).Row + 1
            Sheet3.Range("A" & K) = .Range("B5")
            Sheet3.Range("B" & K) = .Range("D" & i)
            Sheet3.Range("C" & K) = .Range("C" & i)
            Sheet3.Range("D" & K) = .Range("B" & i)
            Sheet3.Range("E" & K) = .Range("G" & i)
        End If
    Next i
End With
    Sheets("Sheet3").Select
End Sub

719404338

K=2,当然是第二列。


Sub 记录001到台帐()

Sheet1.Range("a7:f18").Copy Sheet3.Range("a7:f18")
    End Sub

shalisi

719404338 发表于 2018-6-24 21:46
K=2,当然是第二列。

这样不行，表1，表2   里两个表格是不相同的，单元格对不上

lsc900707

shalisi 发表于 2018-6-24 22:22
这样不行，表1，表2   里两个表格是不相同的，单元格对不上

重新上传附件吧，原有附件打不开。

shalisi

lsc900707 发表于 2018-6-24 23:52
重新上传附件吧，原有附件打不开。

从新压了，这次是用32位的RAR,应该可以打开

lsc900707

shalisi 发表于 2018-6-25 09:01
从新压了，这次是用32位的RAR,应该可以打开

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.     Sheet2.[a7].Resize(m, 12) = brr
    
15. End Sub

复制代码

lsc900707

shalisi 发表于 2018-6-25 09:01
从新压了，这次是用32位的RAR,应该可以打开

代码需要审核，附件先回传以供测试：