怎么批量删除同一文件夹里面所有excel文件的第A列?
Sub 宏1()
For i = 1 To Sheets.Count
Sheets("Sheet" & i).Select
Columns("A:A").Select
Selection.ClearContents
Next
End Sub
热门标签:
Sub 宏1()
For i = 1 To Sheets.Count
Sheets("Sheet" & i).Select
Columns("A:A").Select
Selection.ClearContents
Next
End Sub