标签：style blog class code java c
今天第一次尝试使用Excel宏。
要实现的功能是：1个xls文件中，有2个工作表。判断工作表是否筛选，如果筛选清除筛选。然后将一个工作表中的数据，粘贴到另一个工作表下方。
尝试了录制宏，然后个修改其中的代码。整个过程中，遇到了一些问题，在网上找，并试验，解决了部分问题。
1）判断工作表是否处于筛选模式
If Worksheets("RUBY").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("RUBY").FilterMode = True Then Sheets("RUBY").Select ActiveSheet.ShowAllData End If If Worksheets("RUBY").FilterMode = True Then Sheets("TCL").Select ActiveSheet.ShowAllData End If Rows("2:2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("RUBY").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
标签：style blog class code java c
原文地址：http://www.cnblogs.com/itit/p/3729009.html
