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

gwjkkkkk

Dim brr$()
试一下。。。

文与文寻

gwjkkkkk 发表于 2023-4-1 15:18
Dim brr$()
试一下。。。

试过了，不行

gwjkkkkk

附件发上来我帮你看下。。。

gwjkkkkk

文与文寻 发表于 2023-4-1 18:03
试过了，不行

Sub test()
    Dim ar, br$(), r&
    ar = [A1].CurrentRegion
    ReDim br(1 To (UBound(ar) - 1) * 2, 1 To 3)
    For i = 2 To UBound(ar)
        For j = 2 To 3
            r = r + 1
            br(r, 1) = ar(i, 1)
            br(r, 2) = ar(1, j)
            br(r, 3) = ar(i, j)
        Next j
    Next i
    [F1].Resize(, 3) = Split("项目 科目 分数")
    [F2].Resize(r, 3) = br
End Sub

文与文寻

麻烦老师帮忙看看

文与文寻

gwjkkkkk 发表于 2023-4-1 18:24
附件发上来我帮你看下。。。

附件已发，麻烦老师帮忙看看

xunanming

............................................

不知道为什么

文与文寻 发表于 2023-4-1 20:30
附件已发，麻烦老师帮忙看看

单元格格式设置下 应该可以了

Columns("g:h").NumberFormat = "000"

不知道为什么

文与文寻 发表于 2023-4-1 20:29
麻烦老师帮忙看看

单元格格式做个设置是不是就可以了啊