循环赋值问题

liumahao

现有数据如下，按id分组的数据，每一组都是9年数据（08-16年）。
想要根据eig列的数据赋值（该数据已经根据ID按照升序排序），如果都是0，如id为2的组，就都赋值为0。否则，按照大小从0开始赋值（注：数据存在正负大小关系），如ID为6的组，中间如果遇到相同的数，则赋一样的相应的值。图片是列子，由于数据较大，无法手工下拉赋值，谢谢大大了
赋值.zip (139.85 KB, 下载次数: 3)

2018-7-23 19:53 上传

点击文件名下载附件

719404338

Sub t()

Dim i%, k%, arr, x%
x = 2
For i = 2 To 7309 Step 9
  arr = Range("c" & i & " :c" & i + 9)
   Range("d" & x) = 0
  For k = 1 To 9

  If arr(k + 1, 1) = arr(k, 1) Then
  Range("d" & x + 1) = Range("d" & x)
  Else
  Range("d" & x + 1) = Range("d" & x) + 1
  End If
  x = x + 1
   Next k
   
  Next i
  End Sub