Question

项目文件在某些单元格中具有特定数据。我使用ExecuteExcel4Macro（）检索此数据。接下来，我想把这个数据放在桌子上。是使用；

Index = Application.ActiveSheet.Range("A10000").End(xlUp).Row + 1

查找第一个空行。只要我的数据不是表格格式，它就可以完美地工作。如果是，它将添加在表范围之后的第一行中。我认为End（xlUp）无法识别表中的空行。但我不确定。为了获得更多的上下文，我使用以下代码将数据放入工作簿中。（简体）

'Array of data I want in my table
Dim ref(15) As String

Index = Application.ActiveSheet.Range("A10000").End(xlUp).Row + 1

'GetValue is the ExecuteExcel4Macro() function, this works fine.
'I am using a for each loop to go through all the files to extract data
Application.ActiveSheet.Cells(Index, 1).Formula = GetValue(Path, file, ref(0))
Application.ActiveSheet.Cells(Index, 2).Formula = GetValue(Path, file, ref(1))

如有需要，我可以进一步详细说明

Answer 1

如果您无法摆脱空行，则可以尝试使用Find，即

Sub x()

Dim Index As Long

Index = ActiveSheet.ListObjects("Table1").Range.Columns(1).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1

End Sub

使用宏将数据添加到现有表中

1 个答案: