|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub 批量生成简表()
- Dim arr, brr, crr
- arr = Sheets(1).Range("A1").CurrentRegion
- brr = Array("债券:", "发行人:", "发行日:", "缴款日:", "上市日:", "主体评级:", "规模(亿):", "期限:", "发行区间:")
- crr = Array(1, 2, 3, 13, 14, 9, 7, 6, 8)
- ReDim drr(1 To (UBound(arr) - 1) * 10, 1 To 2)
- For i = 1 To UBound(arr) - 2
- For j = 0 To UBound(brr)
- drr(10 * i - 9 + j, 1) = brr(j)
- drr(10 * i - 9 + j, 2) = arr(i + 2, crr(j))
- Next
- Next
- Sheet2.Range("A:B").ClearContents
- Sheet2.Range("A1").Resize(UBound(drr), 2) = drr
- End Sub
复制代码 |
|