根据值填充Excel字段

Question

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

列d =
企业信用
公司借记
薪资

列B应填充：
CCD
CCD
PPD

C栏应填充：
贷记
借方
信用

Answer 1

这里是一个匆匆的版本：

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