求帮忙写一个VBA代码

jerryvic

表格1输入内容按确定后，在表格2汇总，如何实现求大神帮忙写个代码，十分感谢！

明天会更好zj

这个不考虑姓名是否重复。

cnmlgb9998

用PQ解决。。。。。。。。。。。。。。。。。。。。

jerryvic

明天会更好zj 发表于 2024-4-5 20:56
这个不考虑姓名是否重复。

老大，能帮我把附件改上传给我吗？

jerryvic

明天会更好zj 发表于 2024-4-5 20:56
这个不考虑姓名是否重复。

提示下标越线了

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br(), i&, j&, r&
   
    With Range("A1:C4")
        ar = .Value
        For i = 2 To UBound(ar) Step 2
            For j = 1 To UBound(ar, 2)
                If Len(ar(i, j)) = False Then
                    .Cells(i, j).Select
                    MsgBox "数据为空": Exit Sub
                Else
                    r = r + 1
                    ReDim Preserve br(1 To r)
                    br(r) = ar(i, j)
                End If
            Next j
        Next i
    End With
    With Sheets(2)
        r = .Cells(Rows.Count, "A").End(xlUp).Row + 1
        .Cells(r, 1).Resize(, UBound(br)) = br
        .Activate
    End With
    Beep
End Sub

gwjkkkkk

请参考。。。

jerryvic

gwjkkkkk 发表于 2024-4-6 13:47
请参考。。。

不用判断数据是不是空的，点击按钮后清空录入表的数据，汇总表加个序号列，能再帮忙下吗

gwjkkkkk

jerryvic 发表于 2024-4-7 11:18
不用判断数据是不是空的，点击按钮后清空录入表的数据，汇总表加个序号列，能再帮忙下吗

请参考，。。。