用代码从原表读取信息到新表的最后一行出错

358522643 · 发表于 2018-7-31 10:27

Sub 读取学生信息()
Dim eR&
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("考生基本资料").Select
eR = [a65535].End(xlUp).Row
Range("C2:E" & eR).ClearContents
Range("G2:G" & eR).ClearContents
With Sheets("总成绩册")
eR = [a65535].End(xlUp).Row
Range("C2:E" & eR) = .Range("A3:C" & eR).Value
Range("G2:G" & eR) = .Range("O3:O" & eR).Value
End With
Application.ScreenUpdating = True
End Sub

358522643 · 发表于 2018-7-31 10:29

出现#N/A、#N/A、#N/A、#N/A的错误

abc123281 · 发表于 2018-7-31 11:00

上传附件才会有答案

		自动登录	找回密码
密码			免费注册

[求助] 用代码从原表读取信息到新表的最后一行出错