基于值填充Excel字段

我需要根据D列中的数据填充B列和C列。公司信用=CCD信用。公司借方=CCD借方。工资=PPD信用。例如：

D列=
企业信用
公司借方
工资单

列B应填充为：
CCD
CCD
PPD

列C应填充为：
信用
借记

---

信贷

这里有一个快速版本：

Sub fillIn()
For i= 1 to 65000
    If cells(i,4) = "Corporate Credit" Then
       cells(i,2) = "CCD"
       cells(i,3) = "Credit"
    ElseIf cells(i,4) = "Corporate Debit" Then
       cells(i,2) = "CCD"
       cells(i,3) = "Debit"  
    ElseIf cells(i,4) = "Payroll" Then
       cells(i,2) = "PPD"
       cells(i,3) = "Credit" 
    End If
Next i
End Sub