提取工作表中指定列，追加到一个工作表中

cqz2022

01计算CD.rar (62.6 KB, 下载次数: 8)

2023-4-2 09:41 上传

点击文件名下载附件

文件中有多个成绩记录，如计算3.29 计算3.30 计算3.31  之后还会有更多记录
标签名中的“计算”，还可能，但不限定是“听写”“默写”“综合”……等等
后面的小数，就是对应的日期。

需要：
利用VBA
将包含日期（小数）的每一个单项成绩工作表中的C列成绩，按工作表从左向右顺序追加到【成绩单】中。

为保证提取数据的唯一性，每次提取前，先删除【成绩表】C列右侧的所有数据后，再提取。


谢谢

shiruiqiang

隐藏表格还加密码,路过了

杨建营

请楼主参考。

cqz2022

杨建营 发表于 2023-4-2 10:50
请楼主参考。

第一行的说明文字没有复制过来呀

计算#.##     这里 如果是4.1 12.31 就提取不到了  


帮忙调整一下   谢谢  

yylucke

1、把C2改成C1
2、ReDim Preserve brr(1 To 43, 1 To j)改为：ReDim Preserve brr(1 To 44, 1 To j)
3、arr = .Range(.Cells(2, 3), .Cells(.Cells(.Rows.Count, "c").End(3).Row, 3))改为arr = .Range(.Cells(1, 3), .Cells(.Cells(.Rows.Count, "c").End(3).Row, 3))

杨建营

cqz2022 发表于 2023-4-2 11:31
第一行的说明文字没有复制过来呀

计算#.##     这里 如果是4.1 12.31 就提取不到了  

已经修改，请楼主参考。

cqz2022

杨建营 发表于 2023-4-2 12:10
已经修改，请楼主参考。

谢谢 成功了

gwjkkkkk

参与 一下。。。

lizhipei78

gwjkkkkk 发表于 2023-4-2 18:18
参与 一下。。。

用正则来取表，可以

zyhui1961

杨建营 发表于 2023-4-2 10:50
请楼主参考。

老师您好！
请你帮忙：下面是我录制的宏的内容，单独运行没有问题。
    Sheets("成绩查询").Select
    Range("AA5:AA69").Select
    Selection.Copy '复制文本
    Range("Z5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=F
alse, Transpose:=False '粘贴数值
    Range("Z5").Select
可是我加一个工作表事件，为什么就运行不了？
Private Sub Worksheet_Change(ByVal Target As Range) '工作表触发事件
    Set Myrng = Range("A1")   
    Sheets("成绩查询").Select
    Range("AA5:AA69").Select'老是从这个地方开始卡住了
    Selection.Copy '复制文本
    Range("Z5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False '粘贴数值
    Range("Z5").Select
End Sub