根据值填充Excel字段

Question

我需要B栏和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