用VBA怎么把一个表格中的数据不重复提取到另一个表格中

Posted 2023-04-25

用VBA怎么把销售管理中C列中的日期对应对账单中D2与G2单元格时间段的销售管理里中D列即图号列的内容，不重复提取到对账单B列中，且对账单中选取的时间段改变，数据自动清空重新加载。谢谢各路大神。

参考技术A 方法一如果数据在A列，A1是第一个，在第一行的空白单元格中输入下面的公式=IF(COUNTIF(A:A,A1)>1,1,2)上面的公式是只要是重复的，这个公式的值就为1，2的就不是重复的。你再用自动筛选，选出来有2的，复制到表2.方法二用高级筛选菜单=数据--筛选--高级筛选--将结果复制到其它位置列表区域$A:$A复制到Sheet2!$B:$B勾，选择不重复记录。

VBA 把一个工作簿中的表的数据传递到另一个工作簿中

Private Sub CommandButton2_Click()
For Z = 2 To Sheet2.[b65536].End(3).Row

Next
Application.ScreenUpdating = False
Dim j As Integer
Dim souce As Worksheet
Dim target As Workbook
 Set souce = ThisWorkbook.Worksheets("正式表")

          Set target = Workbooks.Open(ThisWorkbook.Path & "\凭证.xls")
          target.Sheets(1).Rows.Delete

           souce.Range(souce.Cells(1, 1), souce.Cells(Z - 1, 38)).Copy target.Sheets(1).Range(target.Sheets(1).Cells(1, 1), target.Sheets(1).Cells(Z - 1, 38))


           Application.ScreenUpdating = True
         ActiveWorkbook.Save
  ActiveWorkbook.Close

End Sub

把一个工作簿中的表的数据传递到另一个工作簿中。