客户强平单登记小工具

本工具针对由V8T风控系统导出强平查询表格来操作，填写表格和使用说明可以查看附件1，具体代码如下：

Sub 填写()

Dim wb, wb1 As Workbook
Dim i, m As Integer
Set wb1 = ThisWorkbook
Set wb = Workbooks.Open("D:\1111.xls")
m = wb.Sheets(1).Range("a65536").End(xlUp).Row - 2
For i = 1 To m
    If wb.Sheets(1).Range("n" & i + 2) = "全部成交" Then
        wb1.Worksheets(1).Copy after:=wb1.Sheets(Sheets.Count)
        wb1.Worksheets(Sheets.Count).Name = wb1.Sheets.Count - 1
        wb1.Sheets(Sheets.Count).Range("b3") = wb.Sheets(1).Range("e" & i + 2)
        wb1.Sheets(Sheets.Count).Range("e3") = wb.Sheets(1).Range("f" & i + 2)
        wb1.Sheets(Sheets.Count).Range("b5") = wb.Sheets(1).Range("g" & i + 2)
        wb1.Sheets(Sheets.Count).Range("c5") = wb.Sheets(1).Range("h" & i + 2)
        wb1.Sheets(Sheets.Count).Range("d5"