|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
问题:利用数组将区域A转置为区域B后, 分数的格式发生了改变. 麻烦大神帮忙看看,如何做到分数格式不变
这是我写的code
Sub test()
Dim arr()
arr = Range("A1:C10")
Dim i As Integer, J As Integer, n As Integer
Dim brr()
For i = 2 To UBound(arr, 1) ' arr数组的一维-第一列
For J = 2 To UBound(arr, 2) 'arr 数组的第二维-第一行
n = n + 1
ReDim Preserve brr(1 To 3, 1 To n)
brr(1, n) = arr(i, 1)
brr(2, n) = arr(1, J)
brr(3, n) = arr(i, J)
Next
Next
Range("F2").Resize(UBound(brr, 2), 3) = WorksheetFunction.Transpose(brr())
End Sub
|
|