excel - 根据值填充 Excel 字段

Question

我需要根据 D 列中的数据填充 B 列和 C 列。企业信用 = CCD 信用。公司借记 = 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