VB中出现实时错误 '1004' 对象 'Range' 的方法 '_Global' 失败

答案:2 悬赏:0 手机版

解决时间 2021-03-10 00:27

提问者网友：记得曾经
2021-03-09 05:56

我在excel中想把多个不同表中同一位置的数据复制到同一个表中
Sub Macro2()
'
' Macro2 Macro
'
' 快捷键: Ctrl+a
'
Dim i%, s%, t$

s = 0
For i = 1 To 40
t = i + 4
Sheets(i).Select
ActiveWindow.LargeScroll ToRight:=1
Range("O6").Select
Selection.Copy
Sheets("Sheet1").Select
Range("Ct").Select （VB中出现实时错误 '1004' 对象 'Range' 的方法 '_Global' 失败）
ActiveSheet.Paste
Sheets(i).Select
ActiveWindow.SmallScroll ToRight:=-3
Range("E6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("Dt").Select
ActiveSheet.Paste
Next i
End Sub

最佳答案

五星知识达人网友：洒脱疯子
2021-03-09 07:25

在总表的B2单元格输入以下公式，然后向下填充公式
=INDIRECT("11111"&ROW(A100)&"!B3")

全部回答

1楼网友：荒野風
2021-03-09 08:33

xlbook.saveas filename:="d:\地\" & range("c4") & "_" & range("c5") & "_" & range("c7") & ".xls" 这个改成： xlbook.saveas filename:="d:\地\" & xlbook.xlsheet.range("c4") & "_" & xlbook.xlsheet.range("c5") & "_" & xlbook.xlsheet.range("c7") & ".xls" 具体为什么，我也不太清楚，我上次也是遇到这样类似的情况，第一次运行正常，第二次就不行。修改完就好了。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息