DIDI3（数字转为TP，小写转换大写）

Sub DINI3处理()
Dim i As Integer
i = 1
 Sheet2.Cells(1, i).EntireColumn.Delete          '符合条件的都删除整行
 Sheet2.Cells(2, i).EntireColumn.Delete          '符合条件的都删除整行
 Sheet2.Cells(3, i).EntireColumn.Delete          '符合条件的都删除整行
 Sheet2.Cells(4, i).EntireColumn.Delete          '符合条件的都删除整行
 Sheet2.Cells(5, i).EntireColumn.Delete          '符合条件的都删除整行
 i = 2
 Sheet2.Cells(2, i).EntireColumn.Delete          '符合条件的都删除整行
 Sheet2.Cells(3, i).EntireColumn.Delete          '符合条件的都删除整行
 Sheet2.Cells(4, i).EntireColumn.Delete         '符合条件的都删除整行
 i = 3
 Sheet2.Cells(2, i).EntireColumn.Delete         '符合条件的都删除整行
 Sheet2.Cells(3, i).EntireColumn.Delete         '符合条件的都删除整行
 i = 4
 Sheet2.Cells(2, i).EntireColumn.Delete         '符合条件的都删除整行
For i = 2 To 319

 If IsNumeric(Cells(i, 1)) Then
Cells(i, 1) = "TP"
Else

Cells(i, 1) = UCase(Cells(i, 1))
End If

Next
 Sheet1.Range("a1:a319").Value = Sheet2.Range("a1:a319").Value
 Sheet1.Range("b1:b319").Value = Sheet2.Range("c1:c319").Value
 Sheet1.Range("c1:c319").Value = Sheet2.Range("b1:b319").Value

End Sub