按指定序号抽取行数据(加一层壳）

谢玉红 · 发表于 2023-4-14 10:18

本帖最后由谢玉红于 2023-4-14 16:11 编辑

附件

按指定序号抽取行数据.rar (824.62 KB, 下载次数: 22)

谢谢老师！

谢玉红 · 发表于 2023-4-14 14:48

有点复杂希望得到高手老师帮忙，谢谢了。。。。。。。。

GG函数 · 发表于 2023-4-14 15:24

无截图？？？

gwjkkkkk · 发表于 2023-4-14 15:49

请参考。。。

谢玉红 · 发表于 2023-4-14 16:11

gwjkkkkk 发表于 2023-4-14 15:49
请参考。。。

老师你好，谢谢帮助。因先前在附件忘记了，麻烦改一下输出的工作薄改为XLSB.这样文件就变小了，便于后期操作。再谢。

gwjkkkkk · 发表于 2023-4-14 16:17

With Workbooks.Add
         .Sheets(1).[A1].Resize(r, 36) = ar
         .SaveAs strFileName, 50
         .Close
End With
改一句就行，红字的地方

gwjkkkkk · 发表于 2023-4-14 16:20

标色的地方改一下即可。。。

谢玉红 · 发表于 2023-4-14 18:33

gwjkkkkk 发表于 2023-4-14 16:20
标色的地方改一下即可。。。

老师你好，忘记看结果了。输出的结果，每组应该要隔一行。如下图

能否麻烦改一下？谢谢了。

gwjkkkkk · 发表于 2023-4-14 20:12

谢玉红发表于 2023-4-14 18:33
老师你好，忘记看结果了。输出的结果，每组应该要隔一行。如下图

请参考。。。

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

[已解决] 按指定序号抽取行数据(加一层壳）