Question

我使用下面的代码导入了一堆csv文件。它们都具有相同数量的列，具有相同的索引。现在我需要一个makro来按特定列对行进行排序（提示它要排序的列索引会很好，但不是必需的。）

(rRB,gRB,bRB) = mapping_fct(v)

我已经搜索了一下，但我发现的信息不适合我的问题..非常感谢任何帮助：）

Answer 1

您可以根据多个csv文件的要求更改以下代码。

Sub UpdateData()
    Dim wb_CSV, wb_Report As Workbook
    Dim Last_Row_CSV As Long

    Set wb_Report = ActiveWorkbook
    Set wb_CSV = Workbooks.Open(ThisWorkbook.Path & "\" & "mycsvfile.CSV")

    Last_Row_CSV = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row


    wb_CSV.Sheets(1).Range("A1:AE" & Last_Row_CSV).Copy
    wb_Report.Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

    wb_CSV.Close
    Set wb_CSV = Nothing

'***** Do sorting and other analysis here *******

    Set wb_Report = Nothing
End Sub

使用vba对csv文件进行排序

1 个答案: