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
uj5u.com熱心網友回復：
讓大神翻譯，不如自己單步。uj5u.com熱心網友回復：
怎么翻譯? 代碼不就是最好的注解么.莫非翻譯成中文呀.
uj5u.com熱心網友回復：
對uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
他是想把這段代碼讓別人幫他理解下。uj5u.com熱心網友回復：
一個課時200吧轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/79575.html
標籤：VBA
上一篇：componentone 問題
下一篇：VB表單結構問題