|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Option Explicit
Sub test()
Dim arr, i As Long, j As Long, k As Long, n As Long, a, b
With ActiveSheet
a = .UsedRange.Rows.Row
b = .UsedRange.Columns.Column
i = .UsedRange.Columns.Count
If i Mod 12 Then i = i - i Mod 12 + 12
arr = .UsedRange.Resize(, i).Value
For j = 1 To UBound(arr, 2) Step 12
For k = j To j + 3
n = n + 1
For i = 1 To UBound(arr, 1)
arr(i, n) = arr(i, k)
Next
Next
Next
.Cells.ClearContents
.Cells(a, b).Resize(UBound(arr, 1), n) = arr
End With
End Sub |
评分
-
3
查看全部评分
-
|