523066680

对出现的6进行了修补
数组赋值后遗留的 a b变量分别表示行和列
因为最后两列是排名，我用项目数=b-2表示项目数量，剔除了6

不足之处，表示同意。

[ 本帖最后由 523066680 于 2009-11-20 16:41 编辑 ]

523066680

事实上这道题会遇到的排序问题，根之前讨论的纯数字排序有一点不同
就是你要：给这个项目排序，不管你怎样操作，
          最终都必须为每个数字匹配这个数值的"主人"  并显示出来。

这个问题在表格操作中是经常会遇到的，例如给学生各科成绩排名
此时要排的就不仅仅是数值，还有该分值对应的"主人"   
针对于各列并且要关系到其中一项的行上其他数据时，我认为应该让批处理加入 二维数组 概念

[ 本帖最后由 523066680 于 2009-11-21 10:02 编辑 ]

batman

&&这个问题的确是我在工作中遇到和解决的，实际上的操作是用批先生成一个temp.vbs，

然后用temp.vbs读取指定工作表的指定分页（sheet*）的指定范围指定单元格的数据，然

后输入到temp.txt（这是用批做不到的），然后用批进行数据统计分析并输出最终想要的结

果。这是个实用性很强的问题，因为考虑难度比较大，所以在出题时省去了读取excel表数

据的步骤，直接给出了temp.txt的内容。所以请工作中与excel表打交道的会员都认真做一下

本题，不做也可以对照前面给出的代码仔细思考一下，说不定以后你就会遇到类似的问题。

Seter

 
@echo off
setlocal enabledelayedexpansion
set/pt=<in.txt
set t=!t:  = !
set max1=0
set max2=0
for %%i in (%t:~2,-11%) do (
   set/an+=1
   set n!n!=%%i
)
for /f "skip=1 tokens=1* delims= " %%i in (in.txt) do (
   set i=0
   for %%z in (%%j) do (
      set/ai+=1
      if !i! leq %n% (
         for %%y in (!i!) do (
            if %%z==0 (
               for %%x in (w!n%%y!) do (
                  set %%x=!%%x!,%%i
               )
            ) else (
               set/as!n%%y!+=%%z
            )
         )
      ) else (
         if defined p (
            set p=
            set y%%z=!y%%z!,%%i%%z
            if !max2! lss %%z (
               set max2=%%z
            )
         ) else (
            set p=1
            set r%%z=!r%%z!,%%i%%z
            if !max1! lss %%z (
               set max1=%%z
            )
         )
      )
   )
)
for /l %%i in (1,1,%n%) do (
   set o=!n%%i!
   for %%x in (s!n%%i!) do (
      set o=!o!!%%x!,完成为0的局:
      if defined w!n%%i! (
         for %%x in (w!n%%i!) do (
            echo !o!!%%x:~1!
         )
      ) else (
         echo !o!无
      )
   )
)
set o=
for /l %%i in (1,1,%max1%) do (
   set o=!o!!r%%i!
)
echo 当日排名:!o:~1!
set o=
for /l %%i in (1,1,%max2%) do (
   set o=!o!!y%%i!
)
echo 当月累计排名:!o:~1!
pause>nul
复制代码

[ 本帖最后由 Seter 于 2009-11-21 21:42 编辑 ]

batman

输出时当日排名和当月排名搞反了！

Seter

回楼上的
修改好了...我发现问题在于用于辨别的变量p被我设定为环境变量了,所以我调试的时候if defined p是通过的,结果我就把对的改错了..

Seter

什么?连标题中的"部门 当天排名 当月累计排名"都是不确定的!?

more

还是让合适的工具来做最适合的工作吧,以前我先用bat来处理数据,发现效率太低了,后来又用bat调用vbs处理,感觉没那么顺手,接触到vba后,哈哈,有了相见恨晚的感觉...
我想,可能batman还不知道excel里有一个叫做vba(快捷键为Alt+F8)的东西吧,用VBE(快捷键Alt+F11)编写的,用下面的代码(vba)就高效多了,哈哈...

Option Explicit

Sub JustDoIt()
  Dim AllColumns As Integer, AllRows As Integer, i As Integer, j As Integer, ADuty As Integer, Info As String, _
    Info2 As String
  AllColumns = Range("iv1").End(xlToLeft).Column       '获取数据区列数
  AllRows = Range("a65536").End(xlUp).Row              '获取数据区行数
  For i = 2 To AllColumns - 2
    Info = ""
    ADuty = 0
    For j = 2 To AllRows
      If Cells(j, i) > 0 Then
        ADuty = ADuty + Cells(j, i)
      Else
        Info = Info & Cells(j, 1) & ","
      End If
    Next
    If Info = "" Then Info = "无"
    Cells(i, AllColumns + 1) = Cells(1, i) & ADuty & ", 完成为 0 的局: " & Info
  Next
  Info = "当日排名: "
  Info2 = "当月累计排名: "
  For i = 1 To AllRows
    For j = 2 To AllRows
      If Cells(j, AllColumns - 1) = i Then Info = Info & Cells(j, 1) & i & ","
      If Cells(j, AllColumns) = i Then Info2 = Info2 & Cells(j, 1) & i & ","
    Next
  Next
  Cells(AllColumns, AllColumns + 1) = Info & vbCrLf & Info2
  Columns(AllColumns + 1).AutoFit
  Cells(AllColumns, AllColumns + 1).Select
End Sub
复制代码

batman

vba我怎么会不知道啊，呵呵，最简单的不是你这样的，而是用excel的函数来解决。

more

函数完成不了1楼要求的显示效果吧,而在33楼你却说实际工作中是用vbs来操作的嘛...还生成一个b.txt...

zqz0012005

vbs可以调用excel，同时还可以让这个excel执行VBA，并调用其中的函数。
所以说vbs是强大滴。