[求助]关于排序问题求解~~

两只老虎 · 发表于 2003-7-18 15:37

大家好，第一次到这，以后请各位DX多多关照：）请教一个排序问题-- 有表如下：上月：本月：羊 9 猪 4 牛 7 鸡 3 猪 6 鸭 7 鸡 5 牛 8 鸭 4 鹅 9 鹅 3 羊 6 将本月的排序方式按照上月的名称顺序排列，请各位告知，先谢过了 [em08][em08][em08][em08][em08][em08]

飞猫 · 发表于 2003-7-18 18:36

Private Sub Worksheet_SelectionChange(ByVal Target As Range) all = 1 For all = 1 To 6 gjz = ActiveSheet.Cells(all, 1) With ActiveSheet.Range("c1:c6") Set mbz = .Find(gjz) mbzrow = mbz.Row mbzcolumn = mbz.Column End With ActiveSheet.Cells(all, 5) = gjz ActiveSheet.Cells(all, 6) = ActiveSheet.Cells(mbzrow, mbzcolumn + 1) Next all ActiveSheet.Range("c1:d6").Delete End Sub

两只老虎 · 发表于 2003-7-28 11:25

能用函数表示吗，不懂宏：（

youshow · 发表于 2003-7-28 11:53

可以试一下这个，步骤多了一些，请高手指点其他高招。

守柔 · 发表于 2003-7-28 11:57

如果经常性地用到，出个馊主意：将上月的这些序列导入到工具/选项/自定义序列中。然后在排序的选项中，选择该序列。

youshow · 发表于 2003-7-28 11:57

可以试一下这个，步骤多了一些，请高手指点其他高招。

XDPo4KxS.rar (1.96 KB, 下载次数: 86)

两只老虎 · 发表于 2003-7-28 13:33

SgDnXpFS.rar (1.69 KB, 下载次数: 132) 嘿嘿，搞定了：）

TLIN613 · 发表于 2005-3-16 15:39

妙着

1米以外 · 发表于 2005-3-16 16:06

以下是引用守柔在2003-7-28 11:57:00的发言： 如果经常性地用到，出个馊主意：将上月的这些序列导入到工具/选项/自定义序列中。然后在排序的选项中，选择该序列。

november · 发表于 2005-3-16 16:15

以下是引用守柔在2003-7-28 11:57:00的发言： 如果经常性地用到，出个馊主意：将上月的这些序列导入到工具/选项/自定义序列中。然后在排序的选项中，选择该序列。

great~馊~

[em17][em17][em17][em17][em17][em17]

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

[求助]关于排序问题求解~~

可以试一下这个

可以试一下这个

版主 好方法

版主好方法