步骤:
1)找到内容为Weight/Mt Contents的单元格(这个单元格在sheet中肯定是唯一的);
2)在该单元格所在行的下面插入一行;
3)从该单元格所在行一直到第一行全部删除。
运行不了,要求调试“For i = 1 To UsedRange.Rows.Count”。
谢谢。
你把代码放到什么地方了,放到模块里了吗?
还是放到你的sheet里了
你要是放到模块里了这样改
Dim flag As Boolean
flag = False
Dim i As Integer
Dim j As Integer
For i = 1 To ActiveSheet.UsedRange.Rows.Count
For j = 1 To ActiveSheet.UsedRange.Columns.Count
If ActiveSheet.Cells(i, j) = "Weight/Mt Contents" Then
ActiveSheet.Rows(i + 1).Insert Shift:=xlDown
ActiveSheet.Rows("1:" & i).Delete Shift:=xlUp
flag = True
Exit For
End If
Next j
If flag Then Exit For
Next i