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

mznz

求助一下各位大侠们：
有一个循环的判断，一直不知道怎么才能顺利的操作，举例如下：
for i=1 to nums的循环，如果f(i)列的值都相同，则执行并生成1次f(i)对应的操作结果，如果有不同的f(i)值，则每个不同的值，执行并生成对应的f(i)的结果即可！ （不然得话相同的操作会生成nums次）

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 只生成一次

         

liulang0808

f(i)列，这个f是什么？数组吗？f(i)列具体指什么？

建议楼主上传模拟文件，并结合文件说明问题吧

excel玉米

如果f(i)是数组，可先用字典去重，则得出不重复的结果

沈默00

上传附件，模拟结果，，

mznz

liulang0808 发表于 2024-4-21 21:51
f(i)列，这个f是什么？数组吗？f(i)列具体指什么？

建议楼主上传模拟文件，并结合文件说明问题吧

F(i)列是一个整数的数值，随着i的值而逐行变化

mznz

excel玉米 发表于 2024-4-22 06:13
如果f(i)是数组，可先用字典去重，则得出不重复的结果

f（i）对应的是数值，随着i的值变化而变化，有的相同，有的不同

mznz

比如nums=6,f(1)=f(2)=400,f(3)=f(4)=(f5)=500,f(6等于600)，每个值写入文件一行f(i)的表达式，对应f（i）的值即可。

micch

F是什么

liulang0808

mznz 发表于 2024-4-22 14:01
F(i)列是一个整数的数值，随着i的值而逐行变化

楼主需要让别人明白你的需求到底是什么
怎么处理，现在的描述很难懂的，
要么就用足够的数据逐一描述，可能的话尽可能上传附件说明需求

q3698995

跟猜谜一样。是这效果吗？