Sub Macro1 ()
Dim a, b
B=0
A=1
For a=a 50 Step To 0
If Cells (1, a)="surplus" of the principal Or Cells (1, a)="loan amount Or Cells (1, a)=" agreed reimbursement Or Cells (1, a)="subordinate branches" Or Cells (1, a)="state" borrowing Or Cells (1, a)="lending period" Or Cells (1, a)="contract number" Or Cells (1, a)="late start day" Then
A=a + 1
The Else
The Columns (a). Select
Selection. Delete Shift:=xlToLeft
End the If
B=b + 1
If b & gt; Then 255
A=300
End the If
Next a
End Sub
CodePudding user response:
A great god for translation, is one step,CodePudding user response:
How to translate? Code isn't the best annotation yao.It translated into Chinese.
CodePudding user response: