|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Sub test()
- Dim r%, i%
- Dim arr, brr
- With Worksheets("sheet2-合影人员")
- r = .Cells(.Rows.Count, 1).End(xlUp).Row
- arr = .Range("b2:b" & r)
- End With
- With Worksheets("sheet1-站位图")
- r = .Cells(.Rows.Count, 1).End(xlUp).Row
- brr = .Range("b3:b" & r)
- ReDim crr(1 To 10, 1 To 31)
- m = 1
- n = 0
- q = 16
- For i = 1 To Application.Min(UBound(arr), Application.Sum(brr))
- q = q + IIf(n Mod 2 = 1, n, -1 * n)
- crr(m, q) = arr(i, 1)
- n = n + 1
- If n = brr(m, 1) Then
- n = 0
- q = 16
- m = m + 1
- End If
- Next
- .Range("c3").Resize(UBound(crr), UBound(crr, 2)) = crr
- End With
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|