求高手帮忙写一个删除excel表格第一行的批处理代码。。万分感谢!!!
3个回答
展开全部
是多个sheet还是多个文件的某滚做局个特定表?
假设一个文件中的所有sheet删除第一行,公式如下:
Sub delete()
'
' delete 宏
'
'胡斗 快大让捷键: Ctrl+q
'
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In Worksheets
sht.Activate
sht.Rows("1:1").Select
Selection.delete Shift:=xlUp
Next
End Sub
假设一个文件中的所有sheet删除第一行,公式如下:
Sub delete()
'
' delete 宏
'
'胡斗 快大让捷键: Ctrl+q
'
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In Worksheets
sht.Activate
sht.Rows("1:1").Select
Selection.delete Shift:=xlUp
Next
End Sub
追问
是多个文件的第一行,我每次需要处理一个文件,每天都得处理。文件名是 item_list.csv
csv的文件能处理么?谢谢
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
点那一行的随便一格,然后单击右键会有删除单元格.然后删除整行就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Sub abc()
Dim sht As Worksheet
For Each sht In Sheets
sht.Rows(1).Delete
Next
End Sub
Dim sht As Worksheet
For Each sht In Sheets
sht.Rows(1).Delete
Next
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询