|
- Sub Macro1()
- On Error Resume Next
- Dim arr, brr, i&, j%, k%, s%
- arr = Sheet1.Range("a1").CurrentRegion
- ReDim brr(1 To UBound(arr), 1 To 200)
- For j = 1 To UBound(arr, 2) Step 4
- s = s + 1
- For k = j To j + 3
- For i = 1 To UBound(arr)
- brr(i, k + s - 1) = arr(i, k)
- Next
- Next
- Next
- With Sheet2.Range("a1").Resize(UBound(brr), s + UBound(arr, 2))
- .NumberFormatLocal = "G/通用格式""日"""
- .Value = brr
- End With
- End Sub
复制代码 |
评分
-
查看全部评分
|