CSV文件数据合并COPY合并

年底/月末 仓库盘点/门店盘点；

使用PDA盘点枪扫描盘点；

多人盘一起盘点，一个库位导出一个文件；

txt/csv格式，以库位命名，现在需要整理这些数据来使用；

第一节：copy 命令 合并

copy *.csv  hebing.csv

知识点： （1）批处理命令 copy

         （2）通配符  *

         （3）文件格式 txt csv  bat/cmd

第二节：.EXCEL VBA代码模板，把文件名（库位）记录到文件

代码：

Sub jialiejilu()

Dim sht As Worksheet, ws As Workbook

Dim path$, d$

Application.ScreenUpdating = False

path = ThisWorkbook.path & "/"

d = Dir(path & "/*.csv")

    Do While d <> ""

        If d <> ThisWorkbook.Name Then

            Set ws = Workbooks.Open(path & d)

            If ws.Sheets(1).[a1] <> "文件名" Then

                i = ws.Sheets(1).UsedRange.Rows.Count + 1

                Columns(1).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

                [a1].Resize(i - 1, 1) = ws.Name

            End If

            ws.Close True

        End If

        d = Dir

    Loop

Application.ScreenUpdating = True

End Sub

第三节：EXCEL库位整理（款对库位 一对多）

方法一：VLOOKUP+COUNTIF

        =IFERROR(VLOOKUP($I2&J$1,$D:$E,2,0),"")

方法二：OFFSET+MATCH

        =IF(K$1>COUNTIF($B:$B,$H2),"",OFFSET($A$1,MATCH($H2,$B:$B,0)+K$1-2,0,1,1))

----------------------------------------------------

学习本视频对您有价值，请给个五分好评吧以资鼓励。