请教一个找差异的问题

linxiyu · 发表于 2014-1-27 20:46

请教一个找差异的问题，先谢谢大家了

TP512926 · 发表于 2014-1-27 22:19

找差异.zip (22 Bytes, 下载次数: 14)

liulang0808 · 发表于 2014-1-28 07:07

本帖最后由 liulang0808 于 2014-1-28 07:10 编辑

不好意思，发错地方了

liulang0808 · 发表于 2014-1-28 07:41

Private Sub CommandButton1_Click()
Set d = CreateObject("scripting.dictionary")
For j = 6 To 9
d(Cells(j, "d").Value) = Cells(j, "e")
Next j
For j = 6 To 8
d(Cells(j, 1).Value) = d(Cells(j, 1).Value) - Cells(j, 2)
Next j
Cells(6, "h").Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
Cells(6, "i").Resize(d.Count) = WorksheetFunction.Transpose(d.items)
End Sub

liulang0808 · 发表于 2014-1-28 07:43

排序，可以根据表格操作，宏代码没有做的

yjh_27 · 发表于 2014-1-28 15:56

参见附件。

linxiyu · 发表于 2014-1-28 21:05

先谢谢大家，我先研究一下。

		自动登录	找回密码
密码			免费注册

[求助] 请教一个找差异的问题