2,461
社区成员
发帖
与我相关
我的任务
分享
Sub Macro1()
Dim a, b
b = 0
a = 1
For a = a To 50 Step 0
If Cells(1, a) = "剩余本金" Or Cells(1, a) = "放款金额" Or Cells(1, a) = "约定还款日" Or Cells(1, a) = "所属网点" Or Cells(1, a) = "借款状态" Or Cells(1, a) = "放款时间" Or Cells(1, a) = "合同编号" Or Cells(1, a) = "逾期起始日" Then
a = a + 1
Else
Columns(a).Select
Selection.Delete Shift:=xlToLeft
End If
b = b + 1
If b > 255 Then
a = 300
End If
Next a
End Sub