根据指定条件提取汇总数据，另存为CSV格式

pfcszp

我把问题和附件都更新了

pfcszp

等到现在没有老师指点一下~

rivet_nuts

压缩文件打不开啊，要么截个图吧。

pfcszp

rivet_nuts 发表于 2018-2-13 07:36
压缩文件打不开啊，要么截个图吧。

额，我这里可以打开没问题呢，稍等我上个截图吧

pfcszp

麻烦老师帮忙指点下啊，想放假前完成这个统计

蓝桥玄霜

1. Sub 合并数据()
   
2. Dim r As Long, c As Long, rq, n&, i&
   
3. r = 1 '表头的行数
   
4. c = 9 '表头的列数
   
5. rq = [k1].Value
   
6. Dim FileName As String, wb As Workbook, sht As Worksheet, x, k As Long, fn, wbn As String, arr As Variant
   
7. Dim num, sum, sums As Integer  '记录条数
   
8. 
   
9. n = 1
   
10. 
    
11. Range(Cells(r + 1, "A"), Cells(65536, c)).ClearContents '清除汇总表原表数据
    
12. Application.ScreenUpdating = False
    
13. FileName = Dir(ThisWorkbook.Path & "\*.xlsx")
    
14. Do While FileName <> ""
    
15.     If FileName <> ThisWorkbook.Name Then  '判断文件是否是本工作薄
    
16.         sum = 0
    
17.         fn = ThisWorkbook.Path & "" & FileName
    
18.         Set wb = GetObject(fn)   '将fn代表的工作薄对象赋给对象
    
19.         Set sht = wb.Worksheets(1)  '汇总的是第一张工作表
    
20.         '将数据表中的记录保存到arr数组里
    
21.         arr = sht.Range(sht.Cells(r + 1, "A"), sht.Cells("65536", "B").End(xlUp).Offset(0, c))
    
22.         '将数组arr中的数据写入工作表中
    
23.         For i = 2 To UBound(arr)
    
24.             If arr(i, 1) = rq Then
    
25.                 n = n + 1: sum = sum + 1
    
26.                 Cells(n, 1).Resize(1, UBound(arr, 2)) = Application.Index(arr, i, 0)
    
27.             End If
    
28.         Next
    
29.         '把每个工作表中的数据条数汇总
    
30.         If sum > 0 Then
    
31.         sums = sum + sums: num = num + 1
    
32.         wbn = wbn & Chr(13) & wb.Name & "----------------------------【" & sum & "】"
    
33.         End If
    
34.         wb.Close False
    
35.     End If
    
36. FileName = Dir
    
37. Loop
    
38. Application.ScreenUpdating = True
    
39. If num > 0 Then MsgBox "共合并了【" & num & "】个工作薄下的【" & sums & "】条数据" & Chr(13) & wbn, vbInformation, "提示"
    
40. End Sub

复制代码

wj2368

。。。。。。。。。。。。。。。。

pfcszp

wj2368 发表于 2018-2-13 10:29
。。。。。。。。。。。。。。。。

谢谢老师啊，的确是我想要的流程，但是现在CSV里面的C列数据应该用文本显示

pfcszp

wj2368 发表于 2018-2-13 10:29
。。。。。。。。。。。。。。。。

因为CSV文件的C列是卡号，要显示完整的

pfcszp

wj2368 发表于 2018-2-13 10:29
。。。。。。。。。。。。。。。。

CSV的A列日期格式也不对。