系列文章目录

文章目录

系列文章目录
前言
一、错误描述
二、原因调查
总结

前言

一、错误描述

将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 LongWorksheets.Add.Name = "合并表"Sheets("合并表").Move before:=Sheets(1)For i = 2 To Worksheets.CountWorksheets(i).Activate'UsedRange.row，代表使用的第一个行数，在有空行的时候体现，同理，UsedRange.column，代表使用的第一个列数，在有空列的时候体现'那么使用第一行 + 已使用的行数，这样可以规避顶部/左侧有空行，导致获取已使用行号的数据不符合预期（老赵，如果你看到这里不懂，就自己拆开代码，加上空行空列体会一下）row_num = Worksheets(i).UsedRange.Row + Worksheets(i).UsedRange.Rows.Count - 1column_num = Worksheets(i).UsedRange.Column + Worksheets(i).UsedRange.Columns.Count - 1'如果格式很不规范，那么获取的UsedRange.rows.count就可能是整个表格的行数，所以要规避这种情况，如果相同，就让他减1If row_num = Worksheets(i).Rows.Count Then row_num = row_num - 1If 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).Rowarr(j) = row_num_tempNextDebug.Print (Application.WorksheetFunction.Max(arr))row_num_temp = Application.WorksheetFunction.Max(arr) '赋予最大值，确定最大的有数据的行数'相当于遍历所有的行，都按ctrl + ←，取数组的最大值'Erase arr 清空数组，但是也可以不用，直接用ReDim也可以，如果要保留数组内容，需要加一个preserveReDim 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).Columnarr(j) = column_num_tempNextDebug.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)).SelectSelection.Copy Sheets("合并表").Cells(row_num_merge + 1, 2)Worksheets("合并表").Cells(row_num_merge + 1, 1) = Worksheets(i).Namerow_num_merge = Sheets("合并表").UsedRange.Rows.CountNext'将首行标题转为所有行（选择空值，=上面的数据）Worksheets("合并表").ActivateColumns("A:A").SelectSelection.SpecialCells(xlCellTypeBlanks).SelectApplication.CutCopyMode = FalseSelection.FormulaR1C1 = "=R[-1]C"Columns("A:A").SelectSelection.CopySelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=FalseApplication.CutCopyMode = FalseRange("A1").Select
End Sub

新建模块，运行如下：

二、原因调查

发现是工作表中数据存在异常，例如：

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

总结

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

【VBA报错1】--vba代码运行时错误1004 应用程序定义或对象定义错误相关推荐

关于vba代码运行时错误1004 应用程序定义或对象定义错误问题
一.错误描述将Excel所有工作表,汇总到一个工作表中: 在thisworkbook中运行如下: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ...
[VBA]EXCEL表格，运行VBA报错：运行时错误‘9’ 下标越界
代码目的: 点击工作表,自动实现表格数据清空问题: 遇到报错提示"下标越界" 错误及解决过程: 点击"钢管重量排序"工作表,弹出窗口报错.检查excel文件发 ...
excel vba “运行时错误1004，应用程序定义或对象定义错误”
新做的wintogo系统,装了office2021,拿出以前的一个excel程序跑了一下,报错"运行时错误1004,应用程序定义或对象定义错误",于是网上搜索,总结大部分文章给的建 ...
微信小程序运行报错已被代码依赖分析忽略
如何解决"Error: xxx.js 已被代码依赖分析忽略,无法被其他模块引用"报错? 这问题我找了好久,官网还推荐了解决办法大家也可以看看↓ 如何解决"Error: ...
postman安装报错无法定位_VS2010 + winxp 无法定位程序输入点GetTickCount64 在动态链接库kernel32.dll上错误...
winxp系统,使用VS2010, 在使用boost中的thread中的sleep的时候出现 "无法定位程序输入点GetTickCount64 在动态链接库kernel32.dll上&quo ...
创建会计科目（FSP0/FS00）报错“损益报表科目类型在科目表 ZT01 中未定义”
文章目录一.问题再现及初步分析二.解决方法和实操验证 2.1 解决方法 2.2 实操验证一.问题再现及初步分析 Step1.定义公司代码 Step2.定义会计科目表 Step3.给科目表分配公司 ...
解决报错：PermissionError: [WinError 32] 另一个程序正在使用此文件，进程无法访问。PermissionError: [WinError 5] 拒绝访问。
本博客帮你解决两个问题: 1. 当运行 'python -m pip install --upgrade pip' 时,出现 PermissionError: [WinError 5] 拒绝访问,该如 ...
oracle导出数据库中表出现导出报错（EXP-00003）未找到段 (0,0) 的存储定义
前两天在使用oracle数据库,使用dba用户利用PL/SQL 中的tool中export table导出表结构时,出现了如下问题: 好多张表"报错(EXP-00003)未找到段 (0,0) ...
解决金仓数据库安装时安装VC++2013报错问题：不受信任提供程序信任的根证书中终止
解决金仓数据库安装时安装VC++2013报错问题:不受信任提供程序信任的根证书中终止安装微软的信任证书: 1.点击链接下载微软证书:http://download.microsoft.com/dow ...

【VBA报错1】--vba代码运行时错误1004 应用程序定义或对象定义错误

系列文章目录

文章目录

前言

一、错误描述

二、原因调查

总结

【VBA报错1】--vba代码运行时错误1004 应用程序定义或对象定义错误相关推荐

最新文章

热门文章