[已解决]历遍工作表删除指定列的问题

小小玩童

附件 历遍工作表删除指定列.rar (178.89 KB, 下载次数: 11)

2014-4-19 16:18 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

qh8600

2014-4-19 16:30

1. Sub 遍历()
   
2.   Dim i As Integer, a As String
   
3.     a = Sheets("sheet1").Range("A1")
   
4.     For i = 2 To ActiveWorkbook.Worksheets.Count
   
5.           ActiveWorkbook.Worksheets(i).Columns("A:" & a).Delete
   
6.     Next i
   
7. End Sub

复制代码

跳转到最佳答案楼层

qh8600

1. Sub 遍历()
   
2.   Dim i As Integer, a As String
   
3.     a = Sheets("sheet1").Range("A1")
   
4.     For i = 2 To ActiveWorkbook.Worksheets.Count
   
5.           ActiveWorkbook.Worksheets(i).Columns("A:" & a).Delete
   
6.     Next i
   
7. End Sub

复制代码

云影

1. Sub test()
   
2.     Dim sh As Integer
   
3.     For sh = 2 To Worksheets.Count
   
4.         Sheets(sh).Columns("A:" & [a1].Value).Delete
   
5.     Next
   
6. End Sub

复制代码

dsmch

1. Sub Macro1()
   
2. zf = [a1]
   
3. Application.ScreenUpdating = False
   
4. For i = 2 To Sheets.Count
   
5.     Sheets(i).Range("a:" & zf).Delete
   
6. Next
   
7. Application.ScreenUpdating = True
   
8. End Sub
   

复制代码

小小玩童

谢谢各位老师帮助。三个代码都很好。按先后顺序评了最佳。