EXCEL,直接看图

答案:4 悬赏:30 手机版

解决时间 2021-01-27 21:42

提问者网友：富士山上尢
2021-01-26 22:02

EXCEL,直接看图

最佳答案

五星知识达人网友：怙棘
2021-01-26 22:45

想不到是要除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

全部回答

1楼网友：長槍戰八方
2021-01-27 00:54

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

2楼网友：孤独的牧羊人
2021-01-27 00:26

真想知道说的是什么。

3楼网友：空山清雨
2021-01-26 23:58

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息