|
本帖最后由 白薯beyond 于 2019-3-18 10:25 编辑
请见附件。
代码如下
- Sub 动态序号()
- Dim rowStart%, columnStart$
- Dim i As Byte, j As Byte, k%
- Dim arr(11), brr
- Dim dic As Object
- Set dic = CreateObject("scripting.dictionary")
- rowStart = Range("k6"): columnStart = Range("k8"): Qty = Range("k10"): j = 0
- For i = 12 To 34 Step 2
- arr(j) = Range("k" & i)
- If IsNumeric(arr(j)) And arr(j) > 0 Then
- For k = 1 To arr(j)
- dic(j + 1 & "-" & k) = ""
- Next
- End If
- j = j + 1
- Next
- Cells(1, columnStart).Resize(Rows.Count, 1).ClearContents
- Cells(rowStart, columnStart).Resize(dic.Count, 1) = WorksheetFunction.Transpose(dic.keys)
- Set dic = Nothing
- End Sub
复制代码
|
|