如何生成一个s型的数列

希望123456

如果我想用代码生成一个这样的S型分布的数列，代码怎么写？

3190496160

Sub 按钮1_Click()
For i = 1 To 35 Step 7
    y = y + 1
    h = 0
    If y / 2 <> Int(y / 2) Then
        For s = i To i + 6
            h = h + 1
            Cells(h, y) = s
        Next s
    Else
        For s = i + 6 To i Step -1
            h = h + 1
            Cells(h, y) = s
        Next s
    End If
Next i
MsgBox "ok!"
End Sub

3190496160

s型数列.rar (13.57 KB, 下载次数: 5)

2023-6-5 09:55 上传

点击文件名下载附件

micch

sub test

for j = 1 to 10
if j and 1 then
for i = 1 to 10
k=k+1
ar(i,j)=k
next
else

for i = 10 to 1 step -1
k=k+1
ar(i,j)=k
next

end if
next

fzxba

Sub 按钮1_Click()
  Const nRows = 7      ' 7行
  Const nCols = 5      ' 5列
  Const start = 15     ' 起始数为 15
  Dim ar() As Long, i As Long, j As Integer, n As Long, x As Long, y As Long
  ReDim ar(1 To nRows, 1 To nCols)
  For n = start To start + nRows * nCols - 1
    If i Mod nRows = 0 Then
      x = x + 1
      If x Mod 2 Then
        y = 0
        j = 1
      Else
        y = nRows + 1
        j = -1
      End If
    End If
    y = y + j
    ar(y, x) = n
    i = i + 1
  Next
  Range("A1").Resize(nRows, nCols) = ar
End Sub

grf1973

1. Sub 按钮1_Click()
   
2.     m = 7   '数组行数
   
3.     n = 35   '最大数
   
4.     ReDim arr(1 To m, 1 To (n - 1) \ m + 1)
   
5.     For i = 1 To n
   
6.         c = (i - 1) \ m + 1  'i应该在的列
   
7.         r = IIf(c Mod 2 = 1, (i - 1) Mod m + 1, m - ((i - 1) Mod m))  '根据列计算i应该在的行
   
8.         arr(r, c) = i
   
9.     Next
   
10.     [a10].Resize(m, c) = arr
    
11. End Sub
    

复制代码

笨鸟飞不高

Function GetS(r As Long, c As Integer)
    Dim i&, j%, u&, k&, p%
    ReDim arr(1 To r, 1 To c)
    u = UBound(arr) * UBound(arr, 2)
    j = 1: p = 1
    Do
        k = k + 1: i = i + p: arr(i, j) = k
        If k = u Then Exit Do
        If k Mod r = 0 Then
            j = j + 1: k = k + 1: arr(i, j) = k
            p = -p
        End If
    Loop
    GetS = arr
End Function