如何循环填充先升后降的数字123321123

翁知江安

Sub tianchong()
Dim i, k
Dim arr, brr
arr = Sheets("表一").[a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 2 To UBound(arr)
  k = (i - 1) Mod 6
  If k = 0 Then
    brr(i - 1, 1) = 1
    Else
     If k <= 3 Then
       brr(i - 1, 1) = k
       Else
       brr(i - 1, 1) = 7 - k
     End If
    End If
Next
Sheets("表一").[b2].Resize(UBound(arr), 1) = brr
MsgBox "ok"
End Sub

翁知江安

供参考，欢迎批评指正

hcm19522

D2輸入循環數B2=IF(MOD(INT((ROW(A1)-1)/D$2),2),B1-(MOD(ROW(A1)-1,D$2)>0),MOD(ROW(A1)-1,D$2)+1)

可第一行開始=TEXT(MOD(INT((ROW(A1)-1)/D$2),2)*(D$2-MOD(ROW(A1)-1,D$2)),"0;;"&MOD(ROW(A1)-1,D$2)+1)*1

笨鸟飞不高

落伍大叔

简单点的：B2输入1，B3输入公式=IF(B2=$D$1,B2-1,IF(OR(B2>B1,B2=1),B2+1,B2-1))，后下拉即可！

飞天篮球猪

仅供参考...

飞天篮球猪

仅供参考...