VBA复制数据到另一工作表

zhouquyi

详见附件，就是通过VBA把数据工作表中的A列B列分别复制到加工工作表中，经常复制黏贴，需要掌握，以后好依葫芦画瓢

一直都在zz

看看吧！就这样了凑个字数

明天会更好zj

Sheets("数据").Range("a3", Sheets("数据").Cells(Cells.Rows.Count, 2).End(3)).Copy Sheets("加工").[a4]

feilanga

1. Sub 字典方法对数据中的型号规格去重()
   
2.     arr = Sheet1.Range("A1:B" & Sheet1.Cells(Rows.Count, "A").End(xlUp).Row)
   
3.     Dim dic As Object
   
4.     Set dic = CreateObject("scripting.dictionary")
   
5.     For i = 2 To UBound(arr)
   
6.         If Len(arr(i, 1)) Then
   
7.             Key = arr(i, 1) & "," & arr(i, 2)
   
8.             dic(Key) = ""
   
9.         End If
   
10.     Next
    
11.     keys = dic.keys
    
12.     ReDim brr(1 To dic.Count, 1 To 2)
    
13.     For i = 0 To dic.Count - 1
    
14.         k = k + 1
    
15.         s = Split(keys(i), ",")
    
16.         brr(k, 1) = s(0)
    
17.         brr(k, 2) = s(1)
    
18.     Next
    
19.     Sheet2.UsedRange.Offset(3).Clear
    
20.     Sheet2.Range("A4").Resize(k, 2) = brr
    
21. End Sub
    
22. Sub 直接复制()
    
23.     r = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
    
24.     Set Rng = Sheet1.Cells(3, 1).Resize(r, 2)
    
25.     Rng.Copy Sheet2.Range("A4")
    
26. End Sub

复制代码

看不懂你结果中的型号

zhouquyi

一直都在zz 发表于 2023-7-6 11:11
看看吧！就这样了凑个字数

直接复制的好，就是把需要的列复制到另一个列里，以前录制宏，但是列的行数不确定，现在的这个可以不用考虑列的行数

zhouquyi

zhouquyi 发表于 2023-7-6 11:50
直接复制的好，就是把需要的列复制到另一个列里，以前录制宏，但是列的行数不确定，现在的这个可以不用考 ...

r = Sheet1.Cells(Rows.Count, "D").End(xlUp).Row '要复制的列
    Set Rng = Sheet1.Cells(3, 4).Resize(r, 2) '第3行第4列开始，向右偏离的行数
    Rng.Copy Sheet2.Range("D4") '目标工作表的第列第四单元格开始
有时候也不是完全的，如果我重复操作，第二次复制其它数据工作表中的其它列，到加工里面，如何完成，因为再加工里面数据列的位置可能要变

zhouquyi

feilanga 发表于 2023-7-6 11:19
看不懂你结果中的型号

r = Sheet1.Cells(Rows.Count, "D").End(xlUp).Row '要复制的列
    Set Rng = Sheet1.Cells(3, 4).Resize(r, 2) '第3行第4列开始，向右偏离的行数
    Rng.Copy Sheet2.Range("D4") '目标工作表的第列第四单元格开始
直接复制的好，但第二次这样操作 怎么继续那 因为复制的顺序不太一样

ykcbf1100

不知道是全新复制还是追加复制，这里就权当全新复制吧。

追加复制的话，小改一下就行。