如何通过VBA提取指定表格中不重复的数据进行填充

chxw68

参与一下。

一柱

要求不变，就是多几列数据跟着一起复制过去，要怎么改一下呢，正好我也有这个问题，请教一下

cjc209

改一下就可以了 你一点读不懂 要加强学习 练习才会提高水平 动动脑子

一柱

cjc209 发表于 2023-3-5 10:27
改一下就可以了 你一点读不懂 要加强学习 练习才会提高水平 动动脑子

到这里我看懂了，谢谢大佬，
现在是A列不重复的复制过来往下新增，如果想A列重复的则把C列金额累加，怎么处理啊
举个例子：假设流水号000005在汇总里已经有了，金额是15，然后表1里又出现000005，金额是50。
则00005这一行不新增，但C列金额变成65

cjc209

加一句就行了

cjc209

加一句就可以了 就是累加值

cjc209

这些都不是死的 你可以根据具体情况做修改 前提你要知道每一句代码在执行什么操作才行 也就是要看得懂代码表示的意思

zhiaizhi520

gwjkkkkk 发表于 2023-2-26 15:34
Option Explicit
Sub TEST()
    Dim ar, i&, dic As Object

老师，这个代码正好需要用到，但是我的表1数据在C列，总表结果是在B列，尝试修改几次，都不行，必须两表数据在同一列，代码才可以！望指导我修改一下代码！谢谢！

zhiaizhi520

gwjkkkkk 发表于 2023-2-26 15:34
Option Explicit
Sub TEST()
    Dim ar, i&, dic As Object

老师，这个代码正好需要，但是我的表1数据是在C列，总表数据是在B列，尝试去修改了几次，都不行，必须两表数据都在同一列才可以，望指导我修改一下代码，谢谢！

cnmlgb9998

1. //Unnamed
   
2. let
   
3.     源 = Excel.Workbook(File.Contents("C:\Users\飞飞\Desktop\VBA\VBA工具提取不重复的数据进行填充.xlsx"), null, true),
   
4.     表1_Sheet = 源{[Item = "表1", Kind = "Sheet"]}[Data],
   
5.     提升的标题 = Table.PromoteHeaders(表1_Sheet, [PromoteAllScalars = true])[流水号],
   
6.     自定义1 = Table.FromColumns(
   
7.         {List.Union({Table.ToColumns(总表){0}, List.RemoveItems(提升的标题, 总表[流水号])})}
   
8.     )
   
9. in
   
10.     自定义1

复制代码