Question

Range（）.Select调用失败

HHH = Range("A5")
Range("A4:J4").Select
Selection.Copy
Sheets("数据库表").Select
Range(HHH).Select '总是错在这
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range(HHH).Select
Sheets("方便").Select

有人知道原因吗
Sheets("方便").Select
ActiveWindow.LargeScroll ToRight:=-1
Range("B8,10,B12,D8,D10,D14,D12,A16:D16,A18:D18,A20:D20").Select
Range("A20").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("D8").Select
Application.Calculation = xlCalculationAutomatic '自动重算
Application.ScreenUpdating = True '打开屏幕刷新
End If
这是全部代码

有人知道吗

Answer 1

HHH = Range("A5") ’--这里 HHH本身就是一个 Range对象，代表的就是 Rang("A5")

所以 Range(HHH).Select 换成 HHH.Select 应该就可以了

追问

你好，感谢回答，不过替换之后还是无法运行，我把文件发给你，可以帮忙改一下吗

追答

你HHH 是怎么声明的？
你改成 set HHH = Range("A5") ‘ --试一下，如果还报错，截个图看下

追问

盖勒，还是报错，我刚刚把源文件发给您了，能看看吗？……

追答

看私信...

追问

谢谢您，抱歉啊，晚上没有及时回信，谢谢您的回答，非常感谢

追答

wps里也是转载了 VBA嘛
不了解...呵呵，学习了

追问

那个……请看私信……

请问我该怎么定义啊？

Answer 2

我试了一下，以下的可以。你是不是想把现在表格的A4:J4copy到数据库表里面的A5里面，如果是的话，那就是以下的code。HHH=range("A5")要写set，然后那个之后HHH就相当于是一个range的变量，之后就不能用range(HHH)而是HHH了

range("A4:J4").Select
Selection.Copy
Sheets("数据库表").Select
Set HHH = range("A5")
HHH.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
HHH.Select
Sheets("方便").Select

追问

谢谢您的回答，按照您的方法，下面的无法运行了……
Range("B8,10,B12,D8,D10,D14,D12,A16:D16,A18:D18,A20:D20").Select '这里动不了了……

全部的代码已经贴上了，您能在帮我看一下吗

Answer 3

HHH = Range("A5")

是把A5单元格的内容赋值给HHH,此赋值指示了数据库表中的存放数据位置，因此，我需要知道你的源文件

Answer 4

因为 "A5"不包括在"A4:J4"内，运行就会溢出.正确是把 "A5"改成 "A4"就行了