VBA程序設計，excel小程序。

ALT+F11，插入模塊後在模塊中添加下面的代碼。

然後回到sheet1中添加2個自選圖形，右擊後為其指定相應宏。

Sub 提取()

t = InputBox("請輸入要查找的內容：")

y = 5

Range("a5:p65536").ClearContents

With Sheets("sheet2")

For r = 1 To .[D65536].End(xlUp).Row

If InStr(.Cells(r, 4), t) Then

.Cells(r, 1).Resize(1, 15).Copy Cells(y,1)

Cells(y, 16) = r

y = y + 1

End If

Next

End With

End Sub

Sub 還原()

With Sheets("sheet2")

For r = 5 To [P65536].End(xlUp).Row

Cells(r, 1).Resize(1, 15).Copy .Cells(Cells(r, 16).Value, 1)

Next

End With

Range("a5:p65536").ClearContents

End Sub