Question

我有一个excel表，其中有一些列和100行。

  Sub GetFile()
 Dim fNameAndPath As Variant
 fNameAndPath = Application.GetOpenFilename(FileFilter:="Excel Files       (*.XLSM), *.XLSM", Title:="Select File To Be Opened")
  If fNameAndPath = False Then
  Exit Sub
 Workbooks.Open Filename:=fNameAndPath
End Sub

这段代码让我打开另一个xlsm文件，我想将这个打开的Excel文件的行添加到我的主文件中。我希望能够添加其他Excel文件，因此vba代码应该理解哪一行是空的，所以我可以在第一个空行之后添加它。

我该怎么做？

Answer 1

这可以帮助您找到下一个空行：

With Sheets("Data")

 NextRow = .Range("A" & Rows.Count).End(xlUp).Row+1

 .Range("B" &  NextRow) = TextBox1.Value
End With

参考：find next empty space

将另一个excel文件值添加到第一个空单元格

1 个答案: