|
本帖最后由 约定的童话 于 2019-11-18 15:06 编辑
这个有意思哈,干嘛这样取值啊?Sub 取值()
Dim i, n, arr, brr
arr = Sheet1.UsedRange
ReDim brr(1 To 38, 1 To UBound(arr, 2))
For j = 1 To UBound(arr, 2) Step 8
m = m + 1
For i = 1 To UBound(arr)
n = n + 1
If n = 1 Then
brr(n, m) = arr(1, j + 1)
Else
If k = 7 Then
h = h - 1
brr(n, m) = arr(i, j + h - 1)
If h = 1 Then k = 1
Else
k = k + 1
brr(n, m) = arr(i, j + k - 1)
If k = 7 Then h = 7
End If
End If
Next
k = 0: h = 0: n = 0
Next
Cells.Clear
[a4].Resize(38, UBound(arr, 2)) = brr
MsgBox "处理完毕!", , ""
End Sub
|
评分
-
1
查看全部评分
-
|