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

【问题标题】：adding another excel file values to the first empty cell将另一个 excel 文件值添加到第一个空单元格
【发布时间】：2016-04-26 08:16:34
【问题描述】：

我有一个包含一些列和 100 行的 Excel 表。

  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 代码应该知道哪一行是空的，所以我可以在第一个空行之后添加它。

我该怎么办？

【问题讨论】：

标签： vba excel

【解决方案1】：

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

With Sheets("Data")

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

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

参考：find next empty space

【讨论】：

您有机会测试解决方案吗？
我今天会尝试并告诉你:)