vba运行时错误1004 应用程序定义或对象定义错误_百度知道
vba运行时错误1004 应用程序定义或对象定义错误
Sub 复制数值()
Dim new_Book As Workbook
Set new_Book = Workbooks.Add
ThisWorkbook.Sheets(1).Copy before:=new_Book.Sheets(1)
new_Book.Activate
Sheets(1).Range(&A1:H&).End(xlUp).Select '该行调试出错，我只希望复制出A1：...
我有更好的答案
Sheets(1).Range(&A1:H&).End(xlUp).Select很明显，应该改为 Sheets(1).Range(&A1:H1&).End(xlUp).Select，你就缺了一个1，就是Range(&A1:H1&)，呵呵。采纳吧。。。
采纳率：12%
Sheets(1).Range(&A1:H&).End(xlUp).Select 改成
Sheets(1).Range(&A1:H1&).End(xlUp).Select--注意写全
非常感谢你的回答，都很好，可只能采纳一个
为您推荐：
其他类似问题
vba的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 2296|回复: 3
菜鸟求助！Excel宏设置出现的运行时错误1004！
阅读权限10
在线时间 小时
本帖最后由 dukeyork 于
10:39 编辑
本人刚开始学习excel中关于宏部分内容，设置了一个抽查表，但是录制宏之前的操作都没有问题，录制后执行时出现运行时错误`1004`：方法`run`作用于对象`_Application`时失败。
点调试后出现如下编码：
Sub Macro1()
' Macro1 Macro
& &&&Application.Run &ATPVBAEN.XLAM!Sample&, ActiveSheet.Range(&$A$2:$A$400&), _
& && &&&ActiveSheet.Range(&$A$5:$A$94&), &R&, 90, False
& & ActiveWindow.SmallScroll Down:=-75
& & Range(&B4:B94&).Select
& & Selection.Copy
& & ActiveWindow.SmallScroll Down:=-87
& & Range(&A4&).Select
& & Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
& && &&&SkipBlanks:=False, Transpose:=False
& & Application.CutCopyMode = False
求帮助{:soso_e154:}
阅读权限10
在线时间 小时
自顶，请帮助！
阅读权限10
在线时间 小时
再顶一下，求帮助啊
阅读权限30
在线时间 小时
再顶一下，求帮助啊
没有附件你怎么顶都没用。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师VBA运行时错误1004的解决方法
互联网 & 03-21 18:56:01 & 作者：佚名 &
初次接触excel的VBA，刚学习一段代码，VBA就运行报错，提示：运行时错误1004，这里简单分享下解决方法
初次接触excel的VBA，刚学习一段代码，VBA就运行报错，提示：运行时错误1004。如下图所示：运行时错误1004。
这段代码是测试当前VBA版本的：代码如下: Sub 获取VBA版本() MsgBox Application.VBE.Version End Sub 　　当按F5键，就报：运行时错误1004。经老师指点，单击文件――选项――信任中心――打开&信任中心&对话框，宏设置――勾选&信任对VBA工程对象模型的访问&。再次运行，就不会出现运行时错误1004提示。
　　后来在微软官方也看到了此消息。
　　再在搜索引擎查询，才知道运行时错误1004不只是在上面这种情况才会有提示。比如通过使用 Visual Basic 对应用程序的宏创建一个数组公式时您也可能会收到运行时错误1004提示提示信息。造成excel vba输入公式出现运行时错误1004的原因：当您试图将传递一个包含超过 255 个字符的公式时，会发生此问题，并为应用程序中 Visual Basic 中使用 FormulaArray 属性。
　　看来仅一个运行时错误1004提示代码也有很多研究，也是视具体环境不同而不同。
大家感兴趣的内容
12345678910
最近更新的内容Excel VBA语言错误提示‘1004’ 类range的select 方法无效_百度知道
Excel VBA语言错误提示‘1004’ 类range的select 方法无效
例如：Private Sub CommandButton2_Click() Range(&A1&).Select
Sheets(&Sheet3&).Select
Range(&B6:D6&).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
Sheets(&Sheet2&).SelectEnd Sub
如果用宏的话没问题，但要是要将其设置在“命令按钮”里的话就会有错误提示。错误点就在Sheet做切换的时候有问题！
我有更好的答案
你的按钮是在哪个Sheet里呢？对于非按钮所在Sheet里的单元格引用，Range前面要加上所在的Sheet名，这样代码看起来也不容易混淆，如：Sheets(&Sheet3&).ActivateSheets(&Sheet3&).Range(&B6:D6&).Select并且，如果你不需要界面显示真的切换到Sheet3，只是在后台对Sheet3单元格进行操作就可以的话，Sheets(&Sheet3&).Activate这句都可以不要，也节省了程序运行的时间。如果每个Sheets里的操作较多的话，可以用With语句将对各个Sheet的操作分别集中到一处，这样看起来比较清楚，如：With Sheets(&Sheet3&)
.Range(&B6:D6&).Select
......End WithWith Sheets(&Sheet2&)
......End With
采纳率：70%
看了，试了，你的代码没问题呀
为您推荐：
其他类似问题
excel的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 4362|回复: 9
[Excel VBA]
work sheet 的paste无效是怎么回事？？
新鲜人, 积分 5, 距离下一级还需 5 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
本帖最后由 hawking 于
20:57 编辑
我有个重复性很大的excel表要处理，怎么录制宏文件让他自动填充呀，我不会用宏，刚录制了个说是“worksheet的paste无效”，大家帮帮我。
Ps：附件内公司名称及数据均为虚构，如有雷同，纯属巧合！
20:57 上传
点击文件名下载附件
0 Bytes, 下载次数: 4
请下载查看
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
新鲜人, 积分 5, 距离下一级还需 5 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
天南地北 发表于
斑竹您好，附件已经上传，里边有说明，麻烦你看看，谢谢~
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
我的想法是这样的，楼主的工作簿格式看着挺晕的，而且还有些看不见的字符。
每个银行具体科目内容占53行，然后有6列，为收入、支出、纯损。比如统计表B2公式，可以用下面的公式右拉下拉，计算收入部分，总计的部分另外写公式。然后统计表下面的支出和纯损，修改公式的引用区域。=SUMIF(OFFSET(数据!$B$1,MATCH(B$1&&*&,数据!$A$2:$A$307,),,53),$A2,OFFSET(数据!$C$1,MATCH(B$1&&*&,数据!$A$2:$A$307,),,53))复制代码
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
如果要使用vba，一些东西先调整下为好。比如说表格的格式，每个银行的所占行数好像不一样，而且总计部分的格式、行数、留的空行也不尽相同，这些还是要先统一才好办。
新鲜人, 积分 5, 距离下一级还需 5 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
wjc2090742 发表于
如果要使用vba，一些东西先调整下为好。比如说表格的格式，每个银行的所占行数好像不一样，而且总计部分的格 ...
这种可以调整的。我目前经过调整只能用vlookup的方式弄出来，其实还是可以省很多功夫。&&想着过来问问看有木有更简捷高效的方式呢。
那你调整好格式，再发一份附件吧，记录表中A列银行名称好像是很长的一串，还包括时间啥的，能清爽些是最好了。统计表中第一行的顺序应该是按照出现顺序吧？还是有什么特别的要求？出门了，弄好解释清楚了，应该有人做&
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
hawking 发表于
这种可以调整的。我目前经过调整只能用vlookup的方式弄出来，其实还是可以省很多功夫。&&想着过来问问看有 ...
那你调整好格式，再发一份附件吧，记录表中A列银行名称好像是很长的一串，还包括时间啥的，能清爽些是最好了。统计表中第一行的顺序应该是按照出现顺序吧？还是有什么特别的要求？出门了，弄好解释清楚了，应该有人做给你的。
新鲜人, 积分 5, 距离下一级还需 5 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
wjc2090742 发表于
那你调整好格式，再发一份附件吧，记录表中A列银行名称好像是很长的一串，还包括时间啥的，能清爽些是最好 ...
已更新，麻烦您再看看。也没啥特殊的要求，就是以最直观的方式将几十家公司的数据放在一起（因为我需要按季度分析他的变化）。 我也不知道具体该怎么描述。。& &&&
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
hawking 发表于
已更新，麻烦您再看看。也没啥特殊的要求，就是以最直观的方式将几十家公司的数据放在一起（因为我需要按 ...Sub tt()
Application.ScreenUpdating = False
Dim i As Long, m As Integer, j As Byte
Sheets(&汇总样式1&).Columns(&b:xfd&).ClearContents
With Sheets(&数据&)
& & For i = 1 To .Range(&a& & Rows.Count).End(xlUp).Row Step 56
& && &&&m = m + 1
& && &&&Sheets(&汇总样式1&).[a1].Offset(0, m) = .Cells(i, 1)
& && &&&For j = 1 To 3
& && && && &.Cells(i + 2, 2 * j + 1).Resize(53, 1).Copy
& && && && &Sheets(&汇总样式1&).[a1].Offset(53 * j - 52, m).Resize(53, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
& && &&&Next j
& & Next i
End With
Application.ScreenUpdating = True
End Sub复制代码
新鲜人, 积分 5, 距离下一级还需 5 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
wjc2090742 发表于
您好，这个代码可以用的。太感谢了。。还有个问题，我要把几十家公司的资料汇一起，这组代码需要修改的是那部分内容？
站长推荐 /1
40集公式入门动画教程，一天带你打好公式的基础。
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by