请求做一个表格数据交换的表

gzqsw

我在这方面不太熟悉，但想做这么一个表：
选择姓名，与“班级花名册”的数据进行交换：可以读取“花名册”数据，也可以读取“花名册”数据后更改，将数据保存到“花名册”，请问怎么做？请各位大侠帮忙

liulang0808

建议楼主上传模拟附件

gwjkkkkk

建议上传附件，模拟结果。。。

gzqsw

liulang0808 发表于 2024-3-12 19:56
建议楼主上传模拟附件

谢谢，忘记上传了

liulang0808

户口所在地是怎么去对应的？

gzqsw

gwjkkkkk 发表于 2024-3-12 20:08
建议上传附件，模拟结果。。。

谢谢，忘记上传了

3190496160

就是一个繁琐的力气活而已，没任何的技术难度，

3190496160

Sub 读取信息()
Application.ScreenUpdating = False
Dim ar As Variant
Dim i As Long
With Sheets("2115花名册")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 3 Then MsgBox "2115花名册工作表为空！": End
    ar = .Range("a3:ak" & r)
End With
With Sheets("个人")
    xm = .[b3]
    For i = 2 To UBound(ar)
        If Trim(ar(i, 2)) = Trim(xm) Then
            For j = 1 To 11
                .Cells(3, j) = ar(i, j)
            Next j
            .Cells(7, 1) = ar(i, 12)
            .Cells(7, 7) = ar(i, 13)
            .Cells(7, 8) = ar(i, 14)
            .Cells(7, 10) = ar(i, 15)
            For j = 16 To 18
                .Cells(11, j - 15) = ar(i, j)
            Next j
            .Cells(11, 5) = ar(i, 19)
            .Cells(11, 7) = ar(i, 20)
            .Cells(11, 8) = ar(i, 21)
            .Cells(11, 10) = ar(i, 22)
            .Cells(11, 11) = ar(i, 23)
            
            .Cells(15, 1) = ar(i, 24)
            .Cells(15, 5) = ar(i, 25)
            .Cells(15, 6) = ar(i, 26)
            .Cells(15, 7) = ar(i, 27)
            .Cells(15, 9) = ar(i, 28)
            .Cells(15, 10) = ar(i, 29)
            .Cells(15, 11) = ar(i, 30)
            
            For j = 31 To 34
                .Cells(19, j - 30) = ar(i, j)
            Next j
            .Cells(19, 8) = ar(i, 35)
            For j = 36 To 37
                .Cells(22, j - 35) = ar(i, j)
            Next j
            Exit For
        End If
    Next i
End With
MsgBox "ok!"
End Sub

3190496160

只写了读取信息的代码，供参考
上交班级信息.rar (23.92 KB, 下载次数: 2)

2024-3-13 09:05 上传

点击文件名下载附件

gzqsw

liulang0808 发表于 2024-3-12 20:34
户口所在地是怎么去对应的？

这个只是一个提示，忘记说了，非常感谢