用VBA代码实现相同数据对应2列数据连接在一起

888来来来

准提部林 发表于 2023-4-1 20:38
1) 把"+"直接改逗號
2) 3列标题行名称...
   arr(1,1)="电子编号"

逻辑看起来看简单，但是不懂VBA代码  修改起来无法下手  可以在附件修改一下吗

刚好学习一下。

888来来来

xunanming 发表于 2023-4-2 00:16
你在这句  .Range("e1").Resize(UBound(brr), 2) = brr之后,加上
      d.RemoveAll
这句就可以了, ...

可以不针对单独的哪个工作表吗  例如我有3个工作表
只要我新增1个工作表   我插入控件按钮 就能单独执行这个代码吗



帮忙在附件实现这个功能

准提部林

888来来来 发表于 2023-4-2 11:05
逻辑看起来看简单，但是不懂VBA代码  修改起来无法下手  可以在附件修改一下吗

刚好学习一下。

加最後一行//
我用繁體版, 無法在附件代碼寫中文, 會變亂碼//

888来来来

准提部林 发表于 2023-4-2 11:28
加最後一行//
我用繁體版, 無法在附件代碼寫中文, 會變亂碼//

非常感谢！ 完美解决！
学习了。

xunanming

OK!!!!!!!!!!!!!!!!!!!!!!!

888来来来

xunanming 发表于 2023-4-2 12:16
OK!!!!!!!!!!!!!!!!!!!!!!!

感谢。没有问题！

888来来来

xunanming 发表于 2023-4-2 12:16
OK!!!!!!!!!!!!!!!!!!!!!!!

系统导出来的数据本身是没有排序的，用excel排序功能对ABC 3列进行排序，
以A列单元格值进行排序  但是结果日期没有按照想象中那样排序。
如下截图就是我排序之后结果  如果日期排序有问题，最后汇总得到的结果 日期顺序也是不对的
1.能不能在增加1个模块功能呢  就是ABC这3列 进行排序
A列以编号值进行排序，同时B列日期以最近日期往后排。

888来来来

准提部林 发表于 2023-4-2 11:28
加最後一行//
我用繁體版, 無法在附件代碼寫中文, 會變亂碼//

能不能在增加1个模块功能 对A列B列C列进行排序  
系统导出的数据 物料编号是没有顺序的 我用excel的排序功能进行排序  
但是得到的结果 A列排序了 但是B列的日期没有按照最近日期进行排序

准提部林

888来来来 发表于 2023-4-4 22:28
能不能在增加1个模块功能 对A列B列C列进行排序  
系统导出的数据 物料编号是没有顺序的 我用excel的排序 ...

排序//
註意//日期必須是日期格式(非文本), 否則排序不準確

Sub Sort_A1()
With Range([c1], [a65536].End(3))
     .Sort Key1:=.Item(1), Order1:=xlAscending, _
           Key2:=.Item(2), Order2:=xlAscending, _
           Key3:=.Item(3), Order3:=xlAscending, Header:=xlYes
End With
End Sub

888来来来

准提部林 发表于 2023-4-4 22:49
排序//
註意//日期必須是日期格式(非文本), 否則排序不準確

感谢！  没有问题！   用代码新建了1个模块   省去了用透视表转换的过程