excel请编写一个宏完成我以下要求 拜托！！
总店以代码条颜色一列 新疆啊郑州之类的分区相同的代码条与总库的对应在同一行上
有excel的高手帮帮忙
QQ444838067
我学的是java 不会vb 5555555555
之后
Sub Macro1()
Dim dic As Object, i&, j&
Set dic = CreateObject("Scripting.Dictionary")
For i = 1 To 224
If dic.exists(Cells(i, 2) & "|" & Cells(i, 3)) Then
j = dic(Cells(i, 2) & "|" & Cells(i, 3))
Range(Cells(i, "A"), Cells(i, "K")).Cut Destination:=Cells(j, 256).End(xlToLeft).Offset(0, 1).Resize(1, 11)
Else
dic(Cells(i, 2) & "|" & Cells(i, 3)) = i
End If
Next i
End Sub
Dim dic As Object, i&, j&
Set dic = CreateObject("Scripting.Dictionary")
For i = 1 To 224
If dic.exists(Cells(i, 2) & "|" & Cells(i, 3)) Then
j = dic(Cells(i, 2) & "|" & Cells(i, 3))
Range(Cells(i, "A"), Cells(i, "K")).Cut Destination:=Cells(j, 256).End(xlToLeft).Offset(0, 1).Resize(1, 11)
Else
dic(Cells(i, 2) & "|" & Cells(i, 3)) = i
End If
Next i
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2013-04-05
还是没明白 你的意思！
最好再说说 你具体的数据是怎样的 要怎样 你的描述不能理解你的具体意思……
最好是举一个 源数据 和 你要处理后的例子 数据格式是怎样排列的……
这样才好帮到你追问
最好再说说 你具体的数据是怎样的 要怎样 你的描述不能理解你的具体意思……
最好是举一个 源数据 和 你要处理后的例子 数据格式是怎样排列的……
这样才好帮到你追问
完成后
不知道你具体要做什么 但是觉得你这样完成后的表格 我觉得很难读 ……
确认要这样做吗 如果你只是想找出来 哪一个规格出现了差异的话 完全可以换一种处理方法 在数据库中导出的时候 就把 代号、名称、规格 作为航标题 库房作为 列标题 做一个交叉表查询 ……这样你就很容易看出来 是哪里出错了……
先给你一个 交叉表查询的出来的数据表处理的样子 看看 你的源数据是否可以这样 如果不能再考虑使用vba 做成你需要的样子 ……
我需要的是格式不是检测内容。。数据有很多要按照总的代码对照排序形成我要的格式。大侠帮帮我,！
第2个回答 2013-04-06
把明白 ？？？？追问
有一个总库 信息如图 与多个 分公司的信息
把总代码的信息列在左边 右边分公司的信息照着左边代码对应的信息排在一列
由于信息很多所以求告诉给一个简单的方法得出我需要的格式
相似回答