- Sub 税编码()
- Dim rng As Range, sht As Worksheet, shte As Worksheet, ss%
- bmf = "1090119010000000000"
- bmp = "1080499000000000000"
- bml = "1080414010000000000"
- bmg = "1090130010000000000"
- With Worksheets("第1单")
- r = .Cells(.Rows.Count, 1).End(xlUp).Row
- arr = .Range("a1:h" & r)
- For i = 1 To UBound(arr)
- If InStr(arr(i, 2), "阀") <> 0 Then
- arr(i, 8) = bmf
- ElseIf InStr(arr(i, 2), "法兰") <> 0 Then
- arr(i, 8) = bmp
- ElseIf InStr(arr(i, 2), "螺") <> 0 Then
- arr(i, 8) = bml
- ElseIf InStr(arr(i, 2), "管") <> 0 Then
- arr(i, 8) = bmg
- End If
- Next
- .Range("a1:h" & r) = arr
- End With
- End Sub
复制代码 |