摘要：
Sub Macro1() Sheets("Sheet1").Select Range("A1").Select Selection.Copy Sheets("公式").Select Range("A1").Select ActiveSheet.Paste Range("D1").Select Application.CutCopyMode = False Selection.Copy '拷贝日期 Sheets("ALL").Select Call moveEmpty 阅读全文
posted @ 2011-10-29 11:26 greatqn 阅读(601) 评论(0) 推荐(0) 编辑