[已解决]每100組就換下一行

dou10801

每100組就換下一行,為何第五行會顯示不出來?

最佳答案

月排行榜 / 总排行榜

cutecpu

2023-2-2 11:15

1. Sub demo()
   
2.    [f:f].ClearContents
   
3.    a = Range([a2], [a2].End(4))
   
4.    For i = 1 To UBound(a)
   
5.       s = s & """" & a(i, 1) & ""","
   
6.       If i Mod 100 = 0 Or i = UBound(a) Then
   
7.          If i <> UBound(a) Then s = s & " -"
   
8.          r = r + 1
   
9.          Cells(r, 6) = s
   
10.          s = ""
    
11.       End If
    
12.    Next
    
13. End Sub

复制代码

跳转到最佳答案楼层

cutecpu

您好，要上傳個附件嗎

dou10801

抱歉,第一次上傳沒成功.

砂海

    For P = 1 To Arr - 2
        If P Mod 100 = 0 Then '满百 , 写到单元格
           K = K + 1
           Cells(K, 6) = MS1 & "  -"
           MS1 = ""
           MS = """" & Cells(i, 1) & """" & ","
           MS1 = MS1 & MS
        Else
           MS = """" & Cells(i, 1) & """" & ","
           MS1 = MS1 & MS
        End If
        i = i + 1
    Next

    If MS1 <> "" Then Cells(K, 6) = MS1 '  末行 不满百 , 写到单元格
End Sub

cutecpu

1. Sub demo()
   
2.    [f:f].ClearContents
   
3.    a = Range([a2], [a2].End(4))
   
4.    For i = 1 To UBound(a)
   
5.       s = s & """" & a(i, 1) & ""","
   
6.       If i Mod 100 = 0 Or i = UBound(a) Then
   
7.          If i <> UBound(a) Then s = s & " -"
   
8.          r = r + 1
   
9.          Cells(r, 6) = s
   
10.          s = ""
    
11.       End If
    
12.    Next
    
13. End Sub

复制代码

dou10801

砂海 发表于 2023-2-2 09:17
For P = 1 To Arr - 2
        If P Mod 100 = 0 Then '满百 , 写到单元格
           K = K + 1

感谢指导经测试.

If MS1 <> "" Then Cells(K+1, 6) =MS1 '  

感恩