将数据导入到特定列之外的下一个空列

所以我对VBA非常陌生（以前从来没有写过任何东西）我一直在寻找一个解决scheme，但是我还没有设法find任何我想做的事情。

我需要从CSV导入数据并将其插入到特定列之外的下一个空列中。

我的前几列将被链接到“东西”的button占用，所以这些不能用于数据。

所以我需要一个脚本来做到这一点：

1）从单列csv文件导入数据。 2）将数据粘贴到E列之后的下一个空列中

我完全理解，这不是一个代码写作平台，我觉得这个问题很狡猾，但是我一直在努力几个小时，似乎已经耗尽了我所遇到的任何资源。

Answer 1

以下代码可以帮助您：

Option Explicit Sub work() Dim i As Integer Dim main As Worksheet Dim reference As Worksheet Set main = ActiveSheet Workbooks.Open "C:\Users\vqm1628\Downloads\b.csv" Set reference = ActiveSheet Range(Cells(1, 1), Cells(Cells(1, 1).End(xlDown).Row, 1)).Copy _ Destination:=main.Cells(1, main.Cells(1, 100).End(xlToLeft).Column + 1) 'the line above only applies if the first five columns have values Application.DisplayAlerts = False Workbooks("b.csv").Close Application.DisplayAlerts = True End Sub 

我希望它可以帮助你;）