Excel VBA初接触-筛选清除与复制粘贴

今天第一次尝试使用Excel宏。

要实现的功能是：1个xls文件中，有2个工作表。判断工作表是否筛选，如果筛选清除筛选。然后将一个工作表中的数据，粘贴到另一个工作表下方。

尝试了录制宏，然后个修改其中的代码。整个过程中，遇到了一些问题，在网上找，并试验，解决了部分问题。

1）判断工作表是否处于筛选模式

　　If Worksheets("Sheet1").FilterMode = True Then
　　2）向下移动一个单元格

　　Selection.End(xlDown).Offset(1, 0).Select

　　没有找到明确的方法，受到一个答案的启发，尝试着加入offset，没想到成功了。

　　3）关闭表格并自动选择是否保存

　　ActiveWindow.Close savechanges:=False
　　这是关闭表格，并且不保存内容。

　　4）清理剪切板

　　Application.CutCopyMode = xlCut

　　这个是在网上找到的有效的方法。

　　


　　我想实现的是，关闭文件，但是保留剪贴板中的内容。可惜的是，想实现的功能，目前实现不了。

Sub MR()
'
' MR 宏
' 取MR环境中的数据
'
' 快捷键: Ctrl+m
'
If Worksheets("Sheet1").FilterMode = True Then
Sheets("Sheet1").Select
ActiveSheet.ShowAllData
End If

If Worksheets("Sheet2").FilterMode = True Then
Sheets("Sheet2").Select
ActiveSheet.ShowAllData
End If

Sheets("Sheet2").Select
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet1").Select
Range("A2").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Application.CutCopyMode = xlCut
ActiveWindow.Close savechanges:=False

'Application.CutCopyMode = True
'Application.DisplayAlerts = False

End Sub