求大神帮忙写个vba代码—关于数据分列及组合

ykcbf1100

shiruiqiang 发表于 2024-5-21 20:22
应该这个意思

可能是吧，我写了大部分，无法确定楼主想要的。算了，你们写了我就不写了。

兰妞

wang-way 发表于 2024-5-21 20:09
你自己把问题想得很复杂 你不用告诉别人怎么编程 你告诉别人要什么结果可能好一点

是的，我可能表达的不太好

wang-way

JSA 也练个手

1. function matchMoney(){
   
2.         var sht=ThisWorkbook.Worksheets.Item('成本');
   
3.         var ar=sht.Range('a1').CurrentRegion.Value();
   
4.         var d={};
   
5.         ar.slice(1).forEach(r=>d[r[0]]=r[1]);//保存编码与成本
   
6.         sht=ThisWorkbook.Worksheets.Item('Sheet1');
   
7.         er=sht.Cells(Rows.Count,'o').End(3).Row;
   
8.         ar=sht.Range('o1').Resize(er,1).Value();
   
9.         br=[]
   
10.         n=0;
    
11.         ar.slice(1).forEach(r=>{
    
12.                 mysum=0;
    
13.                 r[0].split(';').forEach(x=>mysum+=d[x.split(' * ')[0]]*x.split(' * ')[1]);
    
14.                 br.push([mysum]);
    
15.         });
    
16.         sht.Range('Ak2').Resize(br.length,1).Value2=br;
    
17. }

复制代码

yynrzwh

数据报表 - 副本1.zip (189.07 KB, 下载次数: 6)

2024-5-21 21:11 上传

点击文件名下载附件

gwjkkkkk

兰妞 发表于 2024-5-21 20:27
大神，感谢你，实在太厉害啦。但是可以加多一步吗，能把他们同行的每一列相加起来吗？，只是要总的成本数 ...

。。。。。。。。。。。。。

兰妞

gwjkkkkk 发表于 2024-5-21 21:25
。。。。。。。。。。。。。

感谢感谢

兰妞

gwjkkkkk 发表于 2024-5-21 21:25
。。。。。。。。。。。。。

你好，大神，非常感谢，能帮我再修改下吗？我有些商品代码会在原本的商品编码里面加上符号-，例如HG00008-01，为了重复铺货会把编码换成--HG00008-01或HG00008-01--或-HG00008-01-，就是会在编码前后加上符号“-”避免被平台检测到，我想问下能加个代码把这些符号-去掉吗？编码都是最前面字母最后面数字结尾的格式

兰妞

大神，麻烦帮忙看下，是有一些编码是类似这样的HG00008-01，HG00009-02或在前面或后面加上1个或2个或3个“-”这个符号，但是这样无法匹配成本，如何让这样的代码恢复成原样，--HG00008-01变成HG00008-01
HG00008-01--变成HG00008-01
----HG00008-01--变成HG00008-01
主要是想去掉这个符号“-”然后会有这种“-”符号的商品编码都是最前面是字母，最后面是数字的格式

兰妞

gwjkkkkk 发表于 2024-5-21 21:25
。。。。。。。。。。。。。

大神，帮忙看下我最后面发的文件哈

gwjkkkkk

兰妞 发表于 2024-5-23 19:28
大神，帮忙看下我最后面发的文件哈

.............