求助老师们，数据整理时遇到困难了.

qq78595624 · 发表于 2023-7-15 14:19

本帖最后由 qq78595624 于 2023-7-15 14:37 编辑

求助

求助
求助

请参考附件
sheet1是源文件的内容，希望通过vba整理后得到sheet2的结果
思路：
外循环所有的行
内循环：每一行最右边的列开始往左边寻找，找到关键字“jbkl”的单元格连着4个单元格一起 copy到sheet2
每一行可能有关键字或没有，有一个或甚至多个关键字

excel玉米 · 发表于 2023-7-15 14:59

lcluck2002 · 发表于 2023-7-15 15:18

抱着杠精的精神问问，有没有可能“jbkl”字符会出现在有数据的区域的最后一列或是倒数第二、第三列？
如果有，是否需要复制，还是只复制有效范围内的，不够四列的置空？

qq78595624 · 发表于 2023-7-15 16:54

lcluck2002 发表于 2023-7-15 15:18
抱着杠精的精神问问，有没有可能“jbkl”字符会出现在有数据的区域的最后一列或是倒数第二、第三列？
如果 ...

不会出现在哪里，那么坑人

qq78595624 · 发表于 2023-7-15 17:02

excel玉米发表于 2023-7-15 14:59

谢谢玉米老师

这个可行，请教一下 ReDim Preserve Brr(1 To 4, 1 To k)，里这个 1 to k 能讲解一下吗？

qq78595624 · 发表于 2023-7-15 17:17

excel玉米发表于 2023-7-15 14:59

请问老师假如复制时带上当时那一行的 A 单元格数据应该怎么改？

排列：A + 你这个结果

excel玉米 · 发表于 2023-7-15 17:26

qq78595624 发表于 2023-7-15 17:02
谢谢玉米老师

这个可行，请教一下 ReDim Preserve Brr(1 To 4, 1 To k)，里这个 1 to k 能讲解一下吗 ...

ReDim Preserve Brr(1 To 4, 1 To k) 这个是重新定义数组brr,在不破坏原有的数组数据情况下在下面加一行数据。就象在工作表的最下面一行加入数据一样。前面有k=k+1,表示找到jbk的情况下，在数组brr下面新增一列数据。注意：1 to k只能放在第二维，不能放在第一维。

feilanga · 发表于 2023-7-15 17:36

qq78595624 发表于 2023-7-15 17:02
谢谢玉米老师

这个可行，请教一下 ReDim Preserve Brr(1 To 4, 1 To k)，里这个 1 to k 能讲解一下吗 ...

ReDim Preserve Brr(1 To 4, 1 To k)
1 to 4列 1 to k 行
每次重定义结果数组brr，原数组的内容保持不变，brr的大小都增加1行，用于保存新数据

qq78595624 · 发表于 2023-7-15 17:50

excel玉米发表于 2023-7-15 17:26
ReDim Preserve Brr(1 To 4, 1 To k) 这个是重新定义数组brr,在不破坏原有的数组数据情况下在下面加一行 ...

感谢回复，理解了

qq78595624 · 发表于 2023-7-15 17:51

feilanga 发表于 2023-7-15 17:36
ReDim Preserve Brr(1 To 4, 1 To k)
1 to 4列 1 to k 行
每次重定义结果数组brr，原数组的内容保持不 ...

感谢回复，理解了

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

[求助] 求助老师们，数据整理时遇到困难了.

评分