Question

我不是很精通Excel，更不是精通编码，但是目前，我的任务是建立一个Excel记录表，将这些数据从可填充的PDF中提取，这些PDF合并为.csv文件。

我想要一个简单的命令，该命令将在Excel中使用以下机制/命令路径提取该数据：数据>从文本中抓取数据>选择.csv文件>分隔>逗号分隔> ...>目标=下一个空白单元格>完成/确定。

我想要帮助的是让宏将下一个.csv文件数据输入到A列中的下一个空单元格中，以最终创建一个不断增长的列表。

截至目前，我已经记录了宏并确定是否可以将第7行中的目标从“ Destination：= Range（_ $ A $ 1）”更改为选择下一个空白单元格，我会很好

对于名为“ combined.csv”的CSV文件，我有一个命令脚本，有人帮帮我，该脚本基本上每次都用相同的文件名用新数据重写它，这对我们来说不是问题。

Sub Macro5()

 Macro5 Macro

    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\Alvin_2\Desktop\CSV Files\combined.csv", Destination:=Range( _
        "$A$1"))
        .CommandType = 0
        .Name = "combined"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
        , 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

到目前为止，我没有找到在A列中选择下一个空白单元格的功能。

有人会对我应该在“目标”部分中输入的代码有所了解，以使宏将新数据输入到A列中的下一个空单元格中吗？

Answer 1

尝试：
Range（“ A1”）。End（xlDown）.Offset（1,0）

如何将宏数据输入目标设置为列中的下一个空白单元格？

1 个答案: