恳请大神帮忙看下这个代码有啥问题

qiongmei6 · 发表于 2024-2-4 07:18

本帖最后由 qiongmei6 于 2024-2-4 07:19 编辑

我附件有个代码，是以前有个大神提供的，后来我修改一下再放入我的表格，可能是修改不到位的问题，这个代码在分类200多人的时候代码是正常的，但是一旦分类超过200多人就出现以上图片，恳请各位大神帮忙看下是哪里出问题了。这个代码的功能是根据w1的内容，会把这个a列这个单位的b：r所有数据出现在y3列之后，目前的y3：ao就是我希望代码执行后的结果，谢谢各位大神的帮忙。

无关岁月 · 发表于 2024-2-4 08:05

Book1.7z (32.42 KB, 下载次数: 3)

屏幕截图 2024-02-04 080403.png

ztsss161511 · 发表于 2024-2-4 08:24

用上边大神的代码吧！~ 你的代码下边这两句有点问题，加上你这个表设置只能有256列。
Set tRng = Union(tRng, Range(Cells(i, 2), Cells(i, UBound(arr, 1))))

Set tRng = Range(Cells(i, 2), Cells(i, UBound(arr, 1)))

把UBound(arr, 1)当作单元格列号循环到最大值会出错，因为你这个表单元格列数不能超过256，超过就出错。另看下正常应该excel16384列，为什么设置256列。

ykcbf1100 · 发表于 2024-2-4 08:38

二处错误：
1、For i = 2 To UBound(arr)应该是For i = 3 To UBound(arr),因为数据是从第3行开始的；
2、UBound(arr, 1))应该是UBound(arr, 2)),因为你是按行提取数据的。

qiongmei6 · 发表于 2024-2-4 10:08

各位大神太牛了，你们所提供的正是我所希望的，红花用完了，等明天再赠送红花

		自动登录	找回密码
密码			免费注册

[求助] 恳请大神帮忙看下这个代码有啥问题

评分