CSV指定列汇总请教，感谢！

迷失左岸

需求，在N个文件夹中有N个相同名称的csv文件，需要把csv中的指定列，比如B列汇总在一起，如下图，烦请指教，谢谢了！如果可以，最好能用文件夹名称标识，用于区别。 //有时候有CSV中的数据或多或少对不上时，方便删除。
TEST.7z (15.89 KB, 下载次数: 3)

2021-4-15 20:10 上传

点击文件名下载附件

3190496160

Sub 合并()
Application.ScreenUpdating = False
Dim fs As Object
Dim ar()
ReDim ar(1 To 1000, 1 To 1)
Set sh = ThisWorkbook.Worksheets(1)
sh.UsedRange.Clear
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.getfolder(ThisWorkbook.Path)
For Each fd In f.subfolders
    n = n + 1
    ar(n, 1) = fd.Name
Next
Set f = Nothing
Set fs = Nothing
For i = 1 To n
    f = Dir(ThisWorkbook.Path & "\" & ar(i, 1) & "\*.csv")
    Do While f <> ""
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & ar(i, 1) & "\" & f)
        y = y + 1
        With wb.Worksheets(1)
            r = .Cells(Rows.Count, 2).End(xlUp).Row
            sh.Cells(1, y) = ar(i, 1)
            .Range("b2:b" & r).Copy sh.Cells(2, y)
        End With
        wb.Close False
    f = Dir
    Loop
Next i
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

TEST.rar (31.41 KB, 下载次数: 6)

2021-4-15 21:47 上传

点击文件名下载附件

迷失左岸

3190496160 发表于 2021-4-15 21:47

非常感谢，已经达到需求，谢谢了。因为很菜，想问下，如果我要统计其它列怎么修改呢（比如改成统计全部CSV的E列）。在次感谢！

3190496160

迷失左岸 发表于 2021-4-15 21:57
非常感谢，已经达到需求，谢谢了。因为很菜，想问下，如果我要统计其它列怎么修改呢（比如改成统计全部CS ...

代码中的ABCD你总应该看的明白吧？？？？

迷失左岸

3190496160 发表于 2021-4-15 21:59
代码中的ABCD你总应该看的明白吧？？？？

谢谢，可以了，感谢热心帮助。