关于for循环,数组的求助

lzqmsy

求助说明
1,A到C列是数据源,arr=[A1:C32]
2,通过for循环得到J2:P32这样一个数组 数组的前3列就是数据源arr
3,J到P列是直接写在数组里的,还有后续运算
4,数据量大,不在表里用公式运算 求助附件.zip (10.27 KB, 下载次数: 33)

2018-9-2 22:37 上传

点击文件名下载附件

谢谢各位老师!!!

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, j, sum, m, n, max, pos
  arr = Range("a2:g" & Cells(Rows.Count, "a").End(xlUp).Row + 1)
  For i = 1 To UBound(arr, 1) - 1
    sum = sum + arr(i, 3)
    arr(i, 4) = 1000 * Month(arr(i, 1)) + arr(i, 2)
    If arr(i, 2) <> arr(i + 1, 2) Then arr(i, 7) = sum: sum = 0
  Next
  pos = 1
  For i = 1 To UBound(arr, 1) - 1
    n = n + 1
    arr(i, 5) = m + 1
    If max < arr(i, 5) Then max = arr(i, 5)
    If n Mod 6 = 0 Then m = m + 1
    If arr(i, 4) <> arr(i + 1, 4) Then
      For j = pos To i: arr(j, 6) = max: Next
      pos = i + 1
      n = 0: m = 0: max = 0
    End If
  Next
  [j2].Resize(UBound(arr, 1) - 1, UBound(arr, 2)) = arr
End Sub

microyip

一把小刀闯天下 发表于 2018-9-3 08:45
Option Explicit

Sub test()

恭喜你了，高级能帮侠圣解决问题

一把小刀闯天下

microyip 发表于 2018-9-3 08:55
恭喜你了，高级能帮侠圣解决问题

哈哈哈，没注意他级别比我高。

应该是从函数公式板块过来的大圣，因为这问题没有什么难度

lzqmsy

一把小刀闯天下 发表于 2018-9-3 08:45
Option Explicit

Sub test()

谢谢,好用,正是我所要的,再次谢谢!!!

lzqmsy

一把小刀闯天下 发表于 2018-9-3 09:10
哈哈哈，没注意他级别比我高。

应该是从函数公式板块过来的大圣，因为这问题没有什么难度

谢谢你很能理解人,我确实是刚学vba,而且是用SQL较多