成功运行，存在问题：

1.请假如何解决（目前排除）

2.列，变量（已解决）

3.日期

4.日期和列匹配

Sub 匹配_备份()
Application.ScreenUpdating = False
Dim i, ii, iii, k, j
For k = 3 To 22
If Cells(k, 2) = "" Then
   
     Else

    
   For i = 2 To 29
     m = Cells(i, 22)      '这里Sheet是关键，如果在别的页执行，必须有，否则为当页
     If InStr(Cells(k, 2), m) > 0 Then    '如果提取的数据包含m
     
        For ii = 2 To 8
            n = Cells(ii, 23)
            If InStr(Cells(k, 2), n) > 0 Then
     
                 For iii = 2 To 55
                    If m = Sheet2.Cells(iii, 2) And n = Sheet2.Cells(iii, 4) Then
                        Sheet2.Cells(iii, 9) = Sheet1.Cells(k, 1)  '写入部分
                           
                    End If
                Next
            End If
        Next
     End If
    
     Next
     End If
  Next
   Sheets("Sheet2").Select
         'Cells(iii, 9).Select
Application.ScreenUpdating = True
End Sub

vba关闭屏幕刷新闪烁

sub abc()

Application.ScreenUpdating = False
……
Application.ScreenUpdating = True

end sub

vba怎么获取当前所在单元格位置

Sub a()
activecell.address
activecell.address()
activecell.address(0,0)
activecell.address(0,1)
activecell.address(1,0)
activecell.address(1,1)
Sub End

activecell.address'这是当前单元格地址
selection.offset(1, 0).select'这是向下跳1格
selection.offset(-1, 0).select'这是向上跳1格
selection.offset(0, -1).select'这是向左跳1格
selection.offset(0, 1).select'这是向右跳1格
具体应用可自行修改相应数值！！！

作用：输入（写入）出错时，修改前清除错误内容。

Sub 清除当前所在位置的单元格()
    k = ActiveCell.Address      '获取当前所在位置的单元格
        Range(k).ClearContents  '清除所选单元格
End Sub

vba课程表写入完成，输出问题：

1.多sheet保存

2.输出新表

3.建立数据库

通过SQL语句直接实现Excel与数据库的导入导出

网址：

https://blog.csdn.net/admin_maxin/article/details/79440025

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

在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）