Day planner The especially things I have to do today have the following
背单词 继续完成api的编写 Today’s footprints and insights **kwargs 是严格的名称对应解包,具有特殊功能的函数一般考虑使用
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 Sub format() '快速重排表格以方便导入数据库 Application.ScreenUpdating = False Dim r1 As Integer Dim r2 As Integer Dim flag As Integer Dim s1 As String Dim s2 As String Dim s3 As String r2 = 1 For r1 = 4 To 2150 If Mid(Sheet1.Cells(r1, 1).Value, 1, 4) = "学科门类" Then s1 = Sheet1.Cells(r1, 1).Value Sheet2.Cells(r2, 1).Value = s1 ElseIf Not IsNumeric(Sheet1.Cells(r1, 1).Text) Then 'MsgBox ("NOT numeric") Sheet2.Cells(r2, 1).Value = s1 s2 = Sheet1.Cells(r1, 1).Value s3 = Sheet1.Cells(r1, 2).Value Sheet2.Cells(r2, 2).Value = s2 Sheet2.Cells(r2, 3).Value = s3 Else 'MsgBox ("numeric") Sheet2.Cells(r2, 4).Value = Sheet1.Cells(r1, 1).Value Sheet2.Cells(r2, 5).Value = Sheet1.Cells(r1, 2).Value Sheet2.Cells(r2, 1).Value = s1 Sheet2.Cells(r2, 2).Value = s2 Sheet2.Cells(r2, 3).Value = s3 r2 = r2 + 1 End If Next Application.ScreenUpdating = True End Sub 原始文件长这个样子
...