关于vba代码运行时错误1004 应用程序定义或对象定义错误问题

10-11 75阅读 0评论

?=前言

一、错误描述

Excel所有工作表,汇总到一个工作表中:

thisworkbook中运行如下:

Sub 合并所有工作表_在所有行标注工作表名字_无视空行空列_考虑到不规范的多一点的行和列() DIm row_num As Long, column_num As Long, row_num_temp As Long, column_num_temp As Long, row_num_merge As Long, column_num_merge As Long, i As Long, arr() As Long WorksheeTS.Add.Name = "合并表" Sheets("合并表").Move before:=Sheets(1) For i = 2 To Worksheets.Count Worksheets(i).Activate 'usedRange.row,代表使用的第一个行数,在有空行的时候体现,同理,UsedRange.column,代表使用的第一个列数,在有空列的时候体现 '那么使用第一行 + 已使用的行数,这样可以规避顶部/左侧有空行,导致获取已使用行号的数据不符合预期(老赵,如果你看到这里不懂,就自己拆开代码,加上空行空列体会一下) row_num = Worksheets(i).UsedRange.Row + Worksheets(i).UsedRange.Rows.Count - 1 column_num = Worksheets(i).UsedRange.Column + Worksheets(i).UsedRange.Columns.Count - 1 '如果格式很不规范,那么获取的UsedRange.rows.count就可能是整个表格的行数,所以要规避这种情况,如果相同,就让他减1 if row_num = Worksheets(i).Rows.Count Then row_num = row_num - 1 If column_num = Worksheets(i).Columns.Count Then column_num = column_num - 1  '相当于遍历所有的列,都按ctrl + ↑,取数组最大值 ReDim arr(1 To column_num) For j = LBound(arr) To UBound(arr) row_num_temp = Worksheets(i).Cells(row_num + 1, j).End(xlUp).Row arr(j) = row_num_temp Next Debug.Print (ApplicatiON.WorksheetFunction.Max(arr)) row_num_temp = Application.WorksheetFunction.Max(arr) '赋予最大值,确定最大的有数据的行数  '相当于遍历所有的行,都按ctrl + ←,取数组的最大值 'Erase arr 清空数组,但是也可以不用,直接用ReDim也可以,如果要保留数组内容,需要加一个preserve ReDim arr(1 To row_num_temp) For j = LBound(arr) To UBound(arr) column_num_temp = Worksheets(i).Cells(j, column_num + 1).End(xlToLeft).Column arr(j) = column_num_temp Next Debug.Print (Application.WorksheetFunction.Max(arr)) column_num_temp = Application.WorksheetFunction.Max(arr) '赋予最大值,确定最大的有数据的列数  Worksheets(i).Range(Cells(1, 1), Cells(row_num_temp, column_num_temp)).Select Selection.Copy Sheets("合并表").Cells(row_num_merge + 1, 2) Worksheets("合并表").Cells(row_num_merge + 1, 1) = Worksheets(i).Name row_num_merge = Sheets("合并表").UsedRange.Rows.Count Next '将首行标题转为所有行(选择空值,=上面的数据) Worksheets("合并表").Activate Columns("A:A").Select Selection.SpecialCells(xlCelltypeBlanks).Select Application.CutCopymode = False Selection.FORMulaR1C1 = "=R[-1]C" Columns("A:A").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopymode = False Range("A1").Select End Sub 

关于vba代码运行时错误1004 应用程序定义或对象定义错误问题

建模块,运行如下:

关于vba代码运行时错误1004 应用程序定义或对象定义错误问题

二、原因调查

发现是工作表中数据存在异常,例如:

关于vba代码运行时错误1004 应用程序定义或对象定义错误问题

最下面存在个别数据,导致复制粘贴的时候单元格数量不足,形成此错误;

总结

分享:“难道生命这漫长进程中所有的努力和希望,都是为了那飞娥扑火的一瞬间?”“飞蛾并不觉得阴暗,它至少享受了短暂的光明。"

到此这篇关于关于VBA代码运行时错误1004应用程序定义或对象定义错误问题的文章就介绍到这了,更多相关vba运行时错误1004内容请搜索云初冀北以前的文章或继续浏览下面的相关文章希望大家以后多多支持云初冀北!

免责声明
本站提供的资源,都来自网络,版权争议与本站无关,所有内容及软件的文章仅限用于学习和研究目的。不得将上述内容用于商业或者非法用途,否则,一切后果请用户自负,我们不保证内容的长久可用性,通过使用本站内容随之而来的风险与本站无关,您必须在下载后的24个小时之内,从您的电脑/手机中彻底删除上述内容。如果您喜欢该程序,请支持正版软件,购买注册,得到更好的正版服务。侵删请致信E-mail:Goliszhou@gmail.com
$

发表评论

表情:
评论列表 (暂无评论,75人围观)

还没有评论,来说两句吧...