数据对准vba

拼音佳佳

Sub 对准()
'数据对准
For xa = 3 To 16
For xb = 3 To 16
'列数的起始终止值.xa不移动数据,xb被移动数据

If Cells(xa, 1) = Cells(xb, 13) Then 'A3开始,放置不动数据
Cells(xa, 5) = Cells(xb, 13)
Cells(xa, 6) = Cells(xb, 14)
Cells(xa, 7) = Cells(xb, 15)
Cells(xa, 8) = Cells(xb, 16)
Cells(xb, 13) = ""
Cells(xb, 14) = ""
Cells(xb, 15) = ""
Cells(xb, 16) = "" '复制4行数据,复制后清空该行
End If
Next
Next

'处理剩余数据,不能对上的,依次向下填充
For xa = 3 To 16
For xb = 3 To 16
If Cells(xa, 1) = "" And Cells(xb, 13) <> "" Then
Cells(xa, 5) = Cells(xb, 13)
Cells(xa, 6) = Cells(xb, 14)
Cells(xa, 7) = Cells(xb, 15)
Cells(xa, 8) = Cells(xb, 16)
Cells(xb, 13) = ""
Cells(xb, 14) = ""
Cells(xb, 15) = ""
Cells(xb, 16) = ""
End If
Next
Next
End Sub

不动数据放在A3以后,4列.
被动数据放在M列.
修改一下,可以自动判断数据宽度,自动把sheet2的被动数据转移到不动数据的右边.

有些行业需要做数据分析,将本期数据与去年同期做对比,可以用到这个方法.
统计口径有两个:
1.本期选前10,往期与本期的名称对齐.就是上面的方法.一般用于分析客户流失原因.
2.本期选前10,往期也选前10,只需要名次对齐(销售金额最高前10),这种非常简单,两组数据排好序直接粘贴就OK.可以分析销售额最高的客户对企业的贡献率.

Jaofuan

这个…… 不知道怎么评论，  鼓励一下吧，干得不错！！

chis3

好一個分享......
繼續努力

拼音佳佳

Jaofuan 发表于 2019-11-9 10:05
这个…… 不知道怎么评论，  鼓励一下吧，干得不错！！

我知道是简陋了点,但是你不知道的是,里面有一个坑...

两个if判断不能放在一个循环组内,未对齐的数据会被擦除...
我也是刚刚想到:或者改写第一个if判断,加一个<>""
昨天写好之后发现这个BUG,于是分出两个循环分别做if判断就没事了...

月关

看不看得懂分享就要顶一下

Jaofuan

拼音佳佳 发表于 2019-11-9 10:13
我知道是简陋了点,但是你不知道的是,里面有一个坑...

两个if判断不能放在一个循环组内,未对齐的数据会 ...

我们都是这样过来的，并没有其他意思，最起码我们认真学了！

苏阳湖wzy

建议楼主上传附件。