EXCEL,直接看图

EXCEL,直接看图

想不到是要除1000的
少一个零会多很多数据。。。。
Sub text()
Dim R, s, t, n, X, Y
s = Range("D65536").End(xlUp).Row
R = Range("H65536").End(xlUp).Row
Range("G1:H" & R).ClearContents
[G1] = "name *"
[H1] = "形状_Length"
For I = 2 To s
X = Int(Cells(I, 4) / 1000)
   If X > 0 Then
   t = Range("H65536").End(xlUp).Row
      If Int(Cells(I, 4) / 1000) * 1000 = Cells(I, 4) Then
        Y = X
        Else
        Y = X + 1
        End If
        
     For n = 1 To Y
          Cells(t + n, 7) = Cells(I, 3)
          Cells(t + n, 8) = (n - 1) * 100
     Next
   End If
Next
End Sub

对您的提问不是很清楚，请详细说明一下。

真想知道说的是什么。

SUB 李大侠83淘宝()
DIM X,Y,Z
A=[A1].CURRENTREGION
REDIM B(1 TO UBOUND(A)*9,1 TO 2)
FOR X=2 TO UBOUND(A)
    Z=ROUNDUP(A(X,4)/100,0)
    FOR Y=1 TO Z
        I=I+1
        B(I,1)=A(X,3)
        B(I,2)=(Y-1)*100
    NEXT
NEXT
[G2].RESIZE(I,2)=B
END SUB