求一段将“汇总”表中A17----C列最后一个非空单元格的内容(不包括格式)复制到“考室安排”表中A4单元格开始的范围里面 这段代码老是出错不知道是什么原因,帮分析下 Sub 将汇总名册复制到花名表() Dim zz zz = Range("b65536").End(xlUp).Row Sheets("汇总").Select Range("a17:c" & zz).Select Selection.Copy Sheets("考室安排").Select Range("A4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub
rQ7Z0mIn.rar
(48.43 KB, 下载次数: 12)
|