如果一列数据满了怎么可以动态存，比另AB列满了就存到CD列

a57403080

比如AB列满了就动态把数据放到CD列
代码还可以优化吗

file_name = "重复的数据1.txt"         这个能不能设置一个按钮来修改呢？

Open my_path & "\" & "不重复的数据.txt" For Output As #1       这个能不能设置一个按钮来修改呢？

liulang0808

rows.count最大行号，根据这个判断是否满了
Application.FileDialog这个可以用来选择文件，具体楼主可以根据需求设置

a57403080

liulang0808 发表于 2020-2-23 17:50
rows.count最大行号，根据这个判断是否满了
Application.FileDialog这个可以用来选择文件，具体楼主可以根 ...

rows.count最大行号，根据这个判断是否满了
这个可以做一个列子吗？
Range("A" & l + 1).Resize(d.Count) = Application.Transpose(d.items)
Range("b" & l + 1).Resize(d.Count) = Application.Transpose(d.keys)
Else
Range("A" & l).Resize(d.Count) = Application.Transpose(d.items)
Range("b" & l).Resize(d.Count) = Application.Transpose(d.keys)
这里怎么能动态呢

liulang0808

d.count+i看看是不是大于rows.count，如果小于直接赋值，如果大于，逐个赋值，知道rows.count,然后换列吧

a57403080

liulang0808 发表于 2020-2-23 18:56
d.count+i看看是不是大于rows.count，如果小于直接赋值，如果大于，逐个赋值，知道rows.count,然后换列吧

我试一下，可能不行呀

a57403080

liulang0808 发表于 2020-2-23 18:56
d.count+i看看是不是大于rows.count，如果小于直接赋值，如果大于，逐个赋值，知道rows.count,然后换列吧

兄弟不行呀，可以写一下列子吗？怎么换列呢？

bbcjack57

直接获取a列最大行数然后再判断就行了，不过现在excel最大能放一百多万行，这么大数据的Excel都卡爆了吧？

a57403080

bbcjack57 发表于 2020-3-1 22:00
直接获取a列最大行数然后再判断就行了，不过现在excel最大能放一百多万行，这么大数据的Excel都卡爆了吧？

是呀，好卡