请问用wpsjsa中map怎么转表格格式

2939uxh

请问用wpsjsa中map怎么转表格格式

sunya_0529

看图——

sdytsxd991122

zhangcheng6688

学习一下数组，打扰了
Sub test()
arr = Range("a1:e15")
ReDim brr(1 To 10000, 1 To 4)
For i = 2 To UBound(arr)
   For j = 3 To UBound(arr, 2)
      If arr(i, j) <> "" Then
         m = m + 1
         brr(m, 1) = arr(i, 1)
         brr(m, 2) = arr(i, 2)
         brr(m, 3) = arr(1, j)
         brr(m, 4) = arr(i, j)
      End If
   Next
Next
[g1].Resize(, 4) = Array("班级", "姓名", "科目", "分数")
[g2].Resize(m, 4) = brr
End Sub

jiangxiaoyun

map不会，套用vba思路写一个

工作簿111.zip (11.3 KB, 下载次数: 2)

2024-9-12 10:54 上传

点击文件名下载附件

grf1973

VBA的思路。

我的城市你来过

=LET(a,REDUCE(HSTACK("班级","姓名","科目","成绩"),$C$1:$E$1,LAMBDA(x,y,VSTACK(x,IFNA(HSTACK(A2:B15,y,OFFSET(y,1,,14)),y)))),VSTACK(TAKE(a,1),SORT(DROP(a,1),{1,2,3})))

我的城市你来过

function text(){
        Range("g:l").Clear()
        var s=1;
        for (var arr of Range("c2:e15")){
                                     var brr=[].concat(
                                               Cells(arr.Row,1).Value(),
                                               Cells(arr.Row,2).Value(),
                                               Cells(1,arr.Column).Value(),
                                               arr.Value()                           
                                             );
                                            Range("g1").Resize(1,4).Value2=["班级","姓名","学科","成绩"];
                                            Range("g1").Offset(s++).Resize(1,4).Value2=brr  
                           }
}

LIUZHU

参与下