步骤：
1）找到内容为Weight/Mt Contents的单元格（这个单元格在sheet中肯定是唯一的）；
2）在该单元格所在行的下面插入一行；
3）从该单元格所在行一直到第一行全部删除。
*********************************************************************
dim flag as boolean
flag=false
for i=1 to usedrange.rows.count
for j=1 to usedrange.columns.count
if cells(i,j)="Weight/Mt Contents" then
Rows(i+1).Insert Shift:=xlDown
Rows("1:"& i).Delete Shift:=xlUp
flag=true
exit for
end if
next j
if flag then exit for
next i
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请
点击举报。
