[求助]一表拆成多表，怎样设计函数？

这是原表，我要改成第二个表的打印模式，以便可以裁剪发给学生。该怎样设计函数？由于每个人的补考科目数不一样，所以剪出来表格每个人的行数都不一定相同。因此有的人只有1行和标题行，有的人有三行（三科不及格要补考），所以要比 制作 工资条难一点点：)

用VBA吧。

'生成工资条

Private Sub CommandButton1_Click()
    Dim i As Long, j As Long
   
    i = 2
    j = Range("A65536").End(xlUp).Row
   
    Application.ScreenUpdating = False
   
    Do While i < j
        If Cells(i, 1) <> Cells(i + 1, 1) Then
            Rows(1).Copy
            Rows(i + 1).Insert shift:=xlDown
            Rows(i + 1).Insert
            i = i + 3
            j = j + 2
        Else
            i = i + 1
        End If
    Loop
   
    Application.ScreenUpdating = True
   
End Sub

'删除工资条

Private Sub CommandButton2_Click()
    Dim i As Long, lastRow As Long
    Dim theName As String
   
    lastRow = Range("a65536").End(xlUp).Row
    theName = [a1].Value
   
    Application.ScreenUpdating = False
   
    For i = lastRow To 2 Step -1
        If Cells(i, 1).Value = theName Or Cells(i, 1) = "" Then
            Rows(i).Delete
        End If
    Next
       
    Application.ScreenUpdating = True
   
End Sub

9Q0iwAQj.rar (12 KB, 下载次数: 155)

2006-9-4 13:55 上传

点击文件名下载附件
[求助]一表拆成多表，怎样设计函数？

嘿嘿。。。VBA是最简单的了：）

其实方法有多种，还可以用分类汇总也能实现，只是需要手工添加表头信息。

给一个函数做的，速度一般，可能是Countif使用的原因。

KW9MLOdd.zip (7.42 KB, 下载次数: 327)