Sub ceshi()
Dim i As Integer
For i = 3 To 69
If Cells(1, i) <> i + 1946 Then
Columns(i).Insert
Cells(1, i) = i + 1946
End If
Next i
End Sub
这是代码
å¯ä»¥èèå°æ件ä¾æ¬¡æå¼æ§è¡ä»£ç åï¼ä¿åå
³é
代ç å注éå¦ä¸ï¼
Sub main()
f = Dir("D:\*.xlsx") 'éåDçæ ¹ç®å½ä¸ææxlsxæ件
Do While f <> ""
Workbooks.Open ("D:\" & f) 'ä¾æ¬¡æå¼å个æ件
With Workbooks(f)
.Sheets(1).Cells(1, 1) = 1 'èªè¡æ·»å éè¦æ§è¡ç代ç ï¼è¿é以让æ¯ä¸ªå·¥ä½è¡¨ç¬¬ä¸ä¸ªåå æ ¼å 容å为1为ä¾
.Save 'ä¿åå·¥ä½è¡¨
.Close 'å ³éå·¥ä½è¡¨
End With
f = Dir '继ç»ä¸ä¸ä¸ªæ件
Loop
End Sub
代ç å注éå¦ä¸ï¼
Sub main()
f = Dir("D:\*.xlsx") 'éåDçæ ¹ç®å½ä¸ææxlsxæ件
Do While f <> ""
Workbooks.Open ("D:\" & f) 'ä¾æ¬¡æå¼å个æ件
With Workbooks(f)
.Sheets(1).Cells(1, 1) = 1 'èªè¡æ·»å éè¦æ§è¡ç代ç ï¼è¿é以让æ¯ä¸ªå·¥ä½è¡¨ç¬¬ä¸ä¸ªåå æ ¼å 容å为1为ä¾
.Save 'ä¿åå·¥ä½è¡¨
.Close 'å ³éå·¥ä½è¡¨
End With
f = Dir '继ç»ä¸ä¸ä¸ªæ件
Loop
End Sub
温馨提示：答案为网友推荐，仅供参考
