Question

在Excel里用VBA程序怎么实现搜索一个词组比如Moment,记录该单元格的行数，然后删掉该行之前的所有数据？

Answer 1

Sub Search()
Dim N As Integer
N = ActiveSheet.UsedRange.Find("*Moment*").Row - 1
Rows("1:" & N).Delete Shift:=xlUp
End Sub

Answer 2

Dim TempRow as Integeter
Dim Flag1 as boolean
for x = 1 to rowcount
for y = 1 to colcount
if .cell(x,y) = 'Moment' then
TempRow = x
Flag1 = true

exit for

end if

next y

next x
if Flag1 = true then .