根據值填充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