53147418 53147418
关注数: 5 粉丝数: 10 发帖数: 694 关注贴吧数: 6
宏高手来,帮我看下.无法运行~ Sub 叹()'' 叹 Macro' 宏由 Microsoft 录制,时间: 2008-5-26'' Sheets(Array("电装1班", "电装2班", "多落点", "外装班L", "复合班L")).Select Sheets("电装1班").Activate Range("AW17:AW84").Select Selection.Copy Range("F17").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("AV17:AV84").Select Application.CutCopyMode = False Selection.Copy Range("AA17").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWindow.SmallScroll Down:=-15 Range("H17").Select Application.CutCopyMode = False Windows("手配1.xls").Activate Application.WindowState = xlMinimized ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-5],[手配1.xls]SP1!C2:C22,21,0)" Selection.AutoFill Destination:=Range("H17:H84"), Type:=xlFillDefault Range("H17:H84").Select ActiveWindow.SmallScroll Down:=-54 Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.Replace What:="*A", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Range("I15:Z15").Select Application.CutCopyMode = False Selection.ClearContents Range("AB16:AS16").Select Selection.Interior.ColorIndex = xlNone Range("AB17").Select Sheets(Array("电装1班", "电装2班", "多落点", "外装班L", "复合班L")).Select Sheets("电装1班").Activate Windows("手配2.XLS").Activate Application.WindowState = xlMinimized ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-25],[手配2.XLS]SP2!C1:C21,4,0)" ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,[手配2.XLS]SP2!C1:C21,4,0)" Range("AB17").Select Selection.AutoFill Destination:=Range("AB17:AS17"), Type:=xlFillDefault Range("AB17:AS17").Select Range("AC17").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,[手配2.XLS]SP2!C1:C21,5,0)" Range("AD17").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,[手配2.XLS]SP2!C1:C21,6,0)" Range("AE17").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,[手配2.XLS]SP2!C1:C21,7,0)" Range("AF17").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,[手配2.XLS]SP2!C1:C21,8,0)" Range("AG17").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,[手配2.XLS]SP2!C1:C21,9,0)" Range("AH17").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,[手配2.XLS]SP2!C1:C21,10,0)" Range("AI17").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,[手配2.XLS]SP2!C1:C21,11,0)" Range("AJ17").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,[手配2.XLS]SP2!C1:C21,12,0)" Range("AK17").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,[手配2.XLS]SP2!C1:C21,13,0)" Range("AL17").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,[手配2.XLS]SP2!C1:C21,14,0)" Range("AM17").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,[手配2.XLS]SP2!C1:C21,15,0)" Range("AN17").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,[手配2.XLS]SP2!C1:C21,16,0)" Range("AO17").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,[手配2.XLS]SP2!C1:C21,17,0)" Range("AP17").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,[手配2.XLS]SP2!C1:C21,18,0)" Range("AQ17").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,[手配2.XLS]SP2!C1:C21,19,0)" Range("AR17").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,[手配2.XLS]SP2!C1:C21,20,0)" Range("AS17").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,[手配2.XLS]SP2!C1:C21,21,0)" Range("AB17:AS17").Select Selection.AutoFill Destination:=Range("AB17:AS84"), Type:=xlFillDefault Range("AB17:AS84").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.Replace What:="*A", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Sheets(Array("电装1班", "电装2班", "多落点", "外装班L", "复合班L")).Select Sheets("电装1班").ActivateEnd Sub就是这段:Selection.AutoFill Destination:=Range("H17:H84"), Type:=xlFillDefault
1 下一页