[已解决]程式码问题

lkk0063

程式码问题
当 "In" 复制资料到 "Out"，会多出 "BG" & "BH"栏位数值, 该如何删除?

最佳答案

月排行榜 / 总排行榜

zjdh

2022-9-16 18:20

估计是这样的吧？
Private Sub CommandButton2_Click()
    ...............
    For i = 0 To UBound(Arr) - 1

        '*******************************************************************************
        If i >= UBound(Arr) - 2 Then
            For S = 4 To 5: Brr(1, K * 5 + S) = Arr(i + 1, 2 + S): Next S
            For S = 6 To 7: Brr(1, K * 5 + S) = Arr(i + 2, S): Next S
            Exit For
            '*******************************************************************************

        Else
            For j = 5 To 9: Brr(1, i * 5 + (j - 1)) = Arr(i + 1, j + 1): Next j
        End If
        K = K + 1
    Next i
    ...............
End Sub

跳转到最佳答案楼层

zjdh

你是否发现标题：“I" 的数据也变化了，是你要求的吗？

zjdh

估计是这样的吧？
Private Sub CommandButton2_Click()
    ...............
    For i = 0 To UBound(Arr) - 1

        '*******************************************************************************
        If i >= UBound(Arr) - 2 Then
            For S = 4 To 5: Brr(1, K * 5 + S) = Arr(i + 1, 2 + S): Next S
            For S = 6 To 7: Brr(1, K * 5 + S) = Arr(i + 2, S): Next S
            Exit For
            '*******************************************************************************

        Else
            For j = 5 To 9: Brr(1, i * 5 + (j - 1)) = Arr(i + 1, j + 1): Next j
        End If
        K = K + 1
    Next i
    ...............
End Sub

lkk0063

zjdh 发表于 2022-9-16 18:20
估计是这样的吧？
Private Sub CommandButton2_Click()
    ...............

你好
看不明白为什么以下两行对应至 BB6 ~ BE6，是否能说明一下, 谢谢


For S = 4 To 5: Brr(1, K * 5 + S) = Arr(i + 1, 2 + S): Next S


For S = 6 To 7: Brr(1, K * 5 + S) = Arr(i + 2, S): Next S

1. rivate Sub CommandButton2_Click()
   
2.     ...............
   
3.     For i = 0 To UBound(Arr) - 1
   
4. 
   
5.         '*******************************************************************************
   
6.         If i >= UBound(Arr) - 2 Then
   
7.             For S = 4 To 5: Brr(1, K * 5 + S) = Arr(i + 1, 2 + S): Next S
   
8.             For S = 6 To 7: Brr(1, K * 5 + S) = Arr(i + 2, S): Next S
   
9.             Exit For
   
10.             '*******************************************************************************
    
11. 
    
12.         Else
    
13.             For j = 5 To 9: Brr(1, i * 5 + (j - 1)) = Arr(i + 1, j + 1): Next j
    
14.         End If
    
15.         K = K + 1
    
16.     Next i
    
17.     ...............
    
18. End Sub

复制代码

zjdh

原始数据总共是12行运行到 i >= UBound(Arr) - 2 时 K = 10，则
K * 5=50 ，Brr中前3位是 日期等，则第4列开始为原始数据，则此时Brr(1,53)已有数据，
接下来应该从第54列增加数据，所以应该是K * 5 + S=54到55，同理下一行K * 5 + S=56到57，
尔54列到57列就对应于BB~BE列。