生成同路径txt，谢谢liulang0808和ykcbf1100老师！

lhj323323

liulang0808 发表于 2025-3-28 08:29
Sub test1()
    Dim Myr%, i%, j%, m%, n%
    Dim arr, brr(), Crr

老师：

如果，我想实现如下的效果
是否改
If d.exists(k) Then arr(j) = k & "=" & d(k)

如是的话，该如何改呢？

liulang0808

lhj323323 发表于 2025-3-29 10:42
老师：

如果，我想实现如下的效果

这里面有个问题的，sheet1里比txt文件多的部分添加在txt文件中的位置如何确认呢？

lhj323323

liulang0808 发表于 2025-3-29 11:08
这里面有个问题的，sheet1里比txt文件多的部分添加在txt文件中的位置如何确认呢？

都是放在[CCC]项下
如下图

liulang0808

lhj323323 发表于 2025-3-29 13:21
都是放在[CCC]项下
如下图

你这个插入的顺序是有规律的吗？
就是目前这样的字母D开头后面是有顺序的数字，

还是就是这个用人工分析插入哪里的？

lhj323323

liulang0808 发表于 2025-3-29 17:02
你这个插入的顺序是有规律的吗？
就是目前这样的字母D开头后面是有顺序的数字，

这个没有规律
EXCEL里sheet1的A列的原型数据，是如下格式

lhj323323

liulang0808 发表于 2025-3-29 17:02
你这个插入的顺序是有规律的吗？
就是目前这样的字母D开头后面是有顺序的数字，

其实，您采用字典来提取A列的不重复值
便已实现了我所求的那种（只提取同一大类的最后一笔记录）
只不过，
目前的导入到txt的【标准1】是
txt的【CCC】项下，
如果有【该大类】，则替换为上述数据
如果无【该大类】，则不管它

现在，我想改的【标准2】，则是
txt的【CCC】项下，
如果有【该大类】，则替换为上述数据--------------------------------与【标准1】相同。
如果无【该大类】，则在【CCC】项下内的任意位置，添加它-----与【标准1】不同。

lhj323323

liulang0808 发表于 2025-3-29 17:02
你这个插入的顺序是有规律的吗？
就是目前这样的字母D开头后面是有顺序的数字，

我突然明白，你想问的意思了。

多出的d0003和d0004
只要放在【CCC】项下，顺序不作要求
如下
两种顺序都行。

liulang0808

lhj323323 发表于 2025-3-30 13:26
我突然明白，你想问的意思了。

多出的d0003和d0004

适用于文本文件中不存在重复项的，如果存在重复项，那么还得调整代码的

lhj323323

liulang0808 发表于 2025-3-30 16:34
适用于文本文件中不存在重复项的，如果存在重复项，那么还得调整代码的

再次感谢老师！
完美解决了。

lhj323323

liulang0808 发表于 2025-3-30 16:34
适用于文本文件中不存在重复项的，如果存在重复项，那么还得调整代码的

想不到，改动这么大！