构思：为了方便，将最后的下一页复制到上面，首页下面。

在vba中，换行（ALT+回车）

Sub yy()
    Dim i, k

    For i = 2 To 2
    For j = 2 To 2
    k = i + 1
    t = i + 2
    'Sheet4.Cells(i, k) = Sheet4.Cells(j, 5) & "*" & Sheet4.Cells(t, 6)
    Cells(i, j) = Mid(Cells(i, j), 1, 2) & Chr(10) & Mid(Cells(i, j), 3)
      Next j

  Next i
End Sub

Sub text()
 [b7] = [b5] & vbCrLf & [b6]
 End Sub

Sub aa()
 Dim i, a, b, c '定义变量
 For i = 1 To Range("A65536").End(xlUp).Row '循环A列所有有数据的区域
 c = Cells(i, 1).Value '取得当前单元格的值给c
 b = Left(c, InStr(c, " ")) '截取单元格中的日期给b
 a = Right(c, Len(c) - InStr(c, " ")) '截取单元格中的时间给c
 Cells(i, 1) = b & vbCrLf & a '在日期和时间加上换行符vbcrlf,再写入当前单元格
Next
End Sub

Sub test2()
 For i = 1 To 3
 SourceData = Sheet1.Cells(i, 1).Value
 datlen = Len(SourceData)
 a = InStr(SourceData, " ")
 If a > 0 Then
 Sheet1.Cells(i, 1).Value = Left(SourceData, a - 1) & Chr(10) & Right(SourceData, datlen - a)
End If
Next i
End Sub

vba，课程表，写入，

添加了清除页面（注意范围）。

思路：

1.还需加入输出（写入别的页或别的Excel）

华东座机（铁一）：

62822928

62822775

按条件删除条件以外的行的，3个写法

vba一对一（输入），按条件删除行

Sub 删除其它行_Click()
Application.ScreenUpdating = False

    For i = Range("C65536").End(xlUp).Row To 3 Step -1   '定义循环i到最底，从第3行开始

        If ComboBox1.Value = Cells(i, 3) And TextBox1.Value = Cells(i, 4) Then
       
        Else

            Rows(i).Delete

        End If
 
    Next
   
Application.ScreenUpdating = True

End Sub

     If ComboBox1.Value = Cells(i, 3) And TextBox1.Value = Cells(i, 4) Then
        Else

Rows(i).Delete
     End If

Next
End Sub

思路：

1.重新做查询，完善改变功能，简化操作。

2.查询老师（老师用名字区分）课时。

3.查询各科（现方案）。

4.请假部分统计（分全部的，个人的，老师的）

输入以后，光标停留在，输入的单元格内或者在，屏幕内显示单元格

Cells(i, j).Select   '读取（单元格显示到屏幕中央）