如何利用vba将汇总表中的数据，按要求自动提取到学生记录卡（表2“.

cby0318

两位大神给的方法都很好用，非常感谢，这个自学真是不好学呀。我正在自己研究重复值如何取第一个值，你俩给的方法都是取得最后一个值。

cby0318

liulang0808 发表于 2020-3-6 21:34
Sub 按钮1_Click()
    Application.ScreenUpdating = False
    arr = Sheets("明细").[a1].CurrentRegi ...

Sub 按钮1_Click()
    Application.ScreenUpdating = False
    arr = Sheets("明细").[a1].CurrentRegion
    On Error Resume Next
    For j = 2 To UBound(arr)
        If arr(j, 3) = "是" Then
            d = Day(arr(j, 2))
            Sheets(arr(j, 1)).Cells(d + 10, 2) = arr(j, 4)
            Sheets(arr(j, 1)).Cells(d + 10, 3) = arr(j, 5)
            Sheets(arr(j, 1)).Cells(d + 10, 7) = arr(j, 6)
            Sheets(arr(j, 1)).Cells(d + 10, 9) = arr(j, 7)
            Sheets(arr(j, 1)).Cells(d + 10, 10) = arr(j, 8)
            Sheets(arr(j, 1)).Cells(d + 10, 11) = arr(j, 9)
            Sheets(arr(j, 1)).Cells(d + 10, 12) = arr(j, 10)
        End If
    Next j
    Application.ScreenUpdating = True
End Sub

改好了

cby0318

liulang0808 发表于 2020-3-6 21:34
Sub 按钮1_Click()
    Application.ScreenUpdating = False
    arr = Sheets("明细").[a1].CurrentRegi ...

非常感谢

cby0318

zzj198237 发表于 2020-3-6 20:30
处理好了？

已经处理了

cby0318

gxx75 发表于 2020-3-6 20:44
正在学习vba  没有设置按钮

谢谢已经弄好了，我自己添加上按钮了。

bnb0313

正好需要 谢谢了

szfly365qq

入门水平, 拿你这个练手,写了一天.

终于能实现 你的所有要求,详见附件!

写出来 ,还是蛮有成就感的 , 大神们不要打击我!

cby0318

szfly365qq 发表于 2020-3-8 18:38
入门水平, 拿你这个练手,写了一天.

终于能实现 你的所有要求,详见附件!

你这个这个不错，真是高手   我现在自学着玩，现在还没入门呢，没事的是就在网问问然后琢磨别人怎么写的，

szfly365qq

重新修改了下, 把去重复改到 数组里面做.
原来在表格里面 用单元格比较去重复的方法, 数据多了会出错, 也想不明白为什么.
改到 数组里面去重复 就不会有问题了.