for i=1 to nums的循环，如果f(i)的值都相同，则执行一次f(i)的结果，不同的再生成...

心的启点

纯浪费时间，没有附件，楼主以为大家都是特斯拉，可以直接在脑子里完成所有实验和测试。

mznz

q3698995 发表于 2024-4-22 14:25
跟猜谜一样。是这效果吗？

   For i = 1 To  NUMs

   Print #1, "add test=" & F(i) & "-100"
   Print #1, "a " & F(i)
   Print #1, ""
   
   next i

就是上面的代码每个不同的F(i)值，只生成一次，多谢高人·！

mznz

liulang0808 发表于 2024-4-22 14:13
楼主需要让别人明白你的需求到底是什么
怎么处理，现在的描述很难懂的，
要么就用足够的数据逐一描述， ...

mznz

mznz 发表于 2024-4-22 15:03

实际的行数会有很多，相同的第一行进行循环

liulang0808

mznz 发表于 2024-4-22 15:03

大概猜想下，使用字典将f中的值去重，然后再将字典中的值，写入文本
不知道是不是这个意思

joy.008@163.com

mznz 发表于 2024-4-22 15:03

我猜你是要用表中的数据生成不同的文本文件,换位思考 每个数字直接生成文本文件,相同的文件名就直接覆盖掉了,当然 字典筛重更好,问题是你的问题遮遮掩掩,如果不是涉密文档 就发上来 大家也知道怎么帮你,如果是涉密的 ,你就做个"文档一" 概述你的需求 不要让大佬们猜来猜去 真的很累~~~~

mznz

liulang0808 发表于 2024-4-22 15:10
大概猜想下，使用字典将f中的值去重，然后再将字典中的值，写入文本
不知道是不是这个意思

对基本就是这个意思，不然得话，会根据i值生成太多遍的重复值~！

liulang0808

mznz 发表于 2024-4-22 16:41
对基本就是这个意思，不然得话，会根据i值生成太多遍的重复值~！

也就是那么一猜的，具体实施还得楼主根据自己的实际需求实施。

mznz

   
   Dim nums, Name As String
   Dim Fast As Integer
   
   Application.ScreenUpdating = False
    ActiveWorkbook.Worksheets("Sheet1").Range("$A$1:$K$1000000").RemoveDuplicates Columns:=Array(1, 2, 3), Header _
        :=xlYes
    ActiveWorkbook.Worksheets("Sheet1").Columns("A:A").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
   
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A2:I1000000")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   
   
    Worksheets("Sheet1").Select
    Max_Row = Range("a1048576").End(xlUp).Row
    Max_Col = Worksheets("Sheet1").UsedRange.Columns.Count
        

Application.ScreenUpdating = True
   
    For Row = 2 To Max_Row
        Name = Cells(Row, 1).Value
        nums = Cells(Row, 2).Value
        Fast = Cells(Row, 3).Value

        Name = Worksheets("Sheet1").Cells(Row, 1)
        lastname = Worksheets("Sheet1").Cells(Row - 1, 1)
        Filename = Name & ".log"
        
        If Name <> lastname Then
        On Error Resume Next
        txtFile.Writeline "wait 2"
        On Error Resume Next
        txtFile.Close
        On Error Resume Next
        FSO.Close
   
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set txtFile = FSO.CreateTextFile(ThisWorkbook.Path & "/test/" & Name, True)
        
        txtFile.Writeline "wait 200"
        txtFile.Writeline "for test "

   
   For i = 1 To nums

   txtFile.Writeline "add test=" & Fast(i) & "-100"
   txtFile.Writeline "a " & Fast(i)
   txtFile.Writeline ""
   
   Next i
   
'上面的代码会根据每一行都生成一遍，想实现的是相同的Fast值，只生成一遍
'比如name1对应的Fast 400 只生成一次

         

mznz

mznz 发表于 2024-4-22 16:56
Dim nums, Name As String
   Dim Fast As Integer