Question

VBA帮忙解释下,谢谢!

Sub 保存()
If [AJ2] <> 6 Then
MsgBox "清单数据不完整，请检查清楚再保存。"
Exit Sub
End If
Application.ScreenUpdating = False
Sheets("单据录入").Select
i = Range("B65536").End(xlUp).Row
Rows("4:" & i).Select
Selection.Copy
Sheets("数据库").Select
L = Range("B65536").End(xlUp).Row + 1
Rows(L).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("单据录入").Select
ActiveWindow.SmallScroll Down:=-12
Range("B2,D2,F2,A4:D160").Select
Selection.ClearContents
ActiveWindow.ScrollRow = 4
Range("B2").Select
ActiveWindow.SmallScroll Down:=-9
ActiveWorkbook.Save
End Sub

Answer 1

没细看，大概的意思就是查找C列中的右边10位字符串，如果找到了，将让第四列之后的，提前一列
下面的，大概就是找到了填充不同的颜色

Answer 2

Sub 保存()
If [AJ2] <> 6 Then
    MsgBox "清单数据不完整，请检查清楚再保存。"
Exit Sub
End If
Application.ScreenUpdating = False
Sheets("单据录入").Select   '将单据录入Sheeet设置成当前sheet
'获取B列被使用单元格的最后行数(此处最好用"B:B")
i = Range("B65536").End(xlUp).Row    
    '选择第四行到最后一行的区域（第三行应该是表头，第四行往下应该是数据区域）
    Rows("4:" & i).Select    
    Selection.Copy    '复制到内存
    Sheets("数据库").Select    '选择名字为数据库的sheet，设置成当前Sheet
'获取B列被使用单元格的最后行数，并在次基础上行+1
L = Range("B65536").End(xlUp).Row + 1，
    '选择所获取的最后行（如果是2003版本的Excel，此处有可能会报错。因为2003最大数据是65535行）
    Rows(L).Select 
    '粘贴 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("单据录入").Select '将单据录入Sheeet设置成当前sheet
    ActiveWindow.SmallScroll Down:=-12  '滚动条向上移动12像素
    Range("B2,D2,F2,A4:D160").Select '选择B2,D2,F2,A4:D160单元格
    Selection.ClearContents '清空所选单元格
    
    '以下除了最后一句，基本没用
    ActiveWindow.ScrollRow = 4 
    Range("B2").Select 
    ActiveWindow.SmallScroll Down:=-9
    ActiveWorkbook.Save  '保存Excel
End Sub